1. 程式人生 > >學以致用——使用VBA傳送郵件(Send Email with VBA)

學以致用——使用VBA傳送郵件(Send Email with VBA)

第一次使用VBA自動傳送郵件,酷!

示例程式碼:

Sub 郵件傳送()
Dim cm As New CDO.Message
'Set cm = CreateObject("CDO.Message") '建立物件 '引用路徑:C:\Windows\system32\cdosys.dll
cm.From = "[email protected]" '設定發信人的郵箱"
cm.To = "[email protected],[email protected]" '設定收信人的郵箱
cm.Subject = "主題:郵件傳送試驗" '設定郵件的主題
'cm.TextBody =  '郵件正文,使用文字格式傳送郵件
cm.HtmlBody = "郵件傳送試驗^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" '使用html格式傳送郵件
cm.AddAttachment ThisWorkbook.path & "/a.xls"
stUl = "http://schemas.microsoft.com/cdo/configuration/" '微軟伺服器網址
With cm.Configuration.Fields
    .Item(stUl & "smtpserver") = "smtp.qq.com"         'SMTP伺服器地址
    .Item(stUl & "smtpserverport") = 25                  'SMTP伺服器埠
    .Item(stUl & "sendusing") = 2                        '傳送埠
    .Item(stUl & "smtpauthenticate") = 1      '需要提供使用者名稱和密碼,0是不提供           '
    .Item(stUl & "sendusername") = "1234567"                '傳送方郵箱名稱
    .Item(stUl & "sendpassword") = "12345671"                  '傳送方郵箱密碼
    .Update
End With
cm.Send '最後當然是執行傳送了
Set cm = Nothing
'傳送成功後即時釋放物件
End Sub

注:示例程式碼轉自網際網路,需根據個人郵箱地址、賬號修改程式碼中相應部分。

另外,如果要使用163賬號傳送郵件,參考以下埠設定:(非SSL協議,25)



相關推薦

學以致用——使用VBA傳送郵件Send Email with VBA

第一次使用VBA自動傳送郵件,酷!示例程式碼:Sub 郵件傳送() Dim cm As New CDO.Message 'Set cm = CreateObject("CDO.Message") '建立

C#使用SMTP協議傳送郵件騰訊企業郵箱

大部分郵箱都支援使用SMTP協議傳送郵件,使用這種方法可以很方便的在系統開發中傳送郵件。 在C#語言中,傳送郵件的相關類位於System.Net.Mail名稱空間下。 具體過程為建立郵件類MailM

Android+Jenkins自動化打包+上傳蒲公英+傳送郵件測試必會

Android+Jenkins自動化打包+上傳蒲公英+傳送郵件   各位好,由於經常要修改客戶端的伺服器地址和要區分渠道為了方便測試打包學習了一下Jenkins,期間遇到一些問題,反正就是問題比較多,網上也搜了很多東西但是比較散都講了一點,特地自己整理了一下 ,也將自己遇到的坑在這

linux 傳送郵件centos

1.安裝mailx 安裝mailx: yum install mailx vi /etc/mail.rc set [email protected] set smtp="smtps://smtp.qq.com:465" set smtp-auth-user=12345678

C# 傳送郵件帶附加件傳送

有時候不太適合寫這些東西:不太會描述,因為在開發過程中遇到了,所以記錄一下,以便後面看看。 由於開發一直用的VS2015或者VS2017,所以不知道其他的版本開發情況,其實差不多 這是下面的核心程式碼:簡單的傳送郵件(不發附件):去掉新增附近的程式碼即可 string user = "***@163.

python 傳送郵件文字、表格、附件

import pandas as pd import smtplib   from email.mime.text import MIMEText   from email.mime.multipart import MIMEMultipart filena

傳送郵件多人

#SMTP:簡單郵件傳輸協議,屬於TCP/IP協議#smtplib模組,傳送郵件#email模組,負責構造郵件import smtplib #傳送郵件模組from email.mime.text import MIMEText #定義郵件內容from email.header import Header #

python傳送郵件帶附件

python通過stmp傳送qq郵件,帶附件 import smtplib from email.mime.multipart import MIMEMultipart from email.mime.text import MIMEText from email.header import Head

python中傳送郵件普通文字檔案、附件、圖片等

1、傳送普通文字檔案 #coding=utf-8 import smtplib from email.mime.text import MIMEText from email.header import Header host = 'smtp.126.com' # 設定

SprongBoot傳送郵件傳送HTML郵件

在“SprongBoot傳送郵件(一)傳送簡單文字郵件HelloWorld”的基礎上新增如下方法: /** * @param to 郵件收件人 * @param subject 郵件主題 * @param content 郵件

SprongBoot傳送郵件傳送帶圖片的郵件

/** * @param to * @param subject * @param content * @param rscPath 檔案路徑 * @param rscId */ public v

monkeyrunner入門之傳送郵件

這裡我已Gmail為例,道理都是一樣的 device.touch裡面的數字是手機螢幕的座標,手機螢幕的座標這樣得知: 開啟設定–系統—開發者選項–指標座標 device.type模擬鍵盤輸入內容 提供可複製程式碼: #coding:utf-8 #儲存檔案格式記得選擇utf-8

SpringBoot傳送郵件使用thymeleaf模板

1. 構建環境 在pom.xml中新增以下依賴: <dependency> <groupId>org.springframework.boot</groupId> <artifactId>spring-bo

使用javamail傳送郵件文字+附件

java發動郵件其實很簡單,這是使用Javamail來實現,使用maven管理 1.導包:這兩個包缺一不可 <dependency> <groupId>javax.mail</groupId>

Python用 smtplib在阿里雲伺服器傳送郵件1ni

差點被這個郵件搞哭了,坑真的太多了!!!1.要記得開啟163郵箱的服務具體方法 設定=》左下角的客戶端授權密碼(那時候就要開啟了,會讓你輸入密碼,這個密碼不能和登入的密碼相同程式碼裡也是這個客戶端密碼,不是登入密碼)2.你的IP可能被禁了!!!一開始試了很多的程式碼,都是報錯

VC++ 傳送郵件使用郵件進行程式異常報告

由於最近資料解析軟體接入的裝置很多,程式一旦發生異常如果沒有及時恢復,可能會造成資料丟失,比如軟體崩潰,資料庫卡死無法寫入資料,等等因素,會造成軟體工作不正常,因此增加了一個郵件提醒功能(郵件提醒最簡單),某些郵箱綁定了手機或微信,可以同步實時進行提醒,比如我用的139郵箱

linux學習-mail傳送郵件mail不能發郵件

主機:centos 7 , 安裝sendmail,啟動sendmail,一般就可以了,但是有些同學為什麼不行,就是啟不動出現如下的情況!那現在如何解決。 yum install sendmailsystemctl start sendmail.service system

C#傳送郵件新增附件

using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.T

windows下使用php自帶的mail函式實現簡單的郵件傳送例項QQ親試成功

問題: 初學php,打算實現一下找回密碼功能。當然這涉及到不少的問題,我直接想到的是怎麼發郵件的問題,這便是今天要解決的問題了。 查資料: 為解決這個問題,到網上查了很多資料,也看到網上有很多相關的資料,可能是由於鄙人比較笨,試了很多前人的方法,也總還是出現這樣那樣的問題,

Python使用SMTP傳送郵件163,yeah等網易郵箱已測試可以

#! /usr/bin/env python # -*- coding: UTF-8 -*- import smtplib from email.mime.text import MIMEText