VBA 使用 CDO 寄送郵件
VBA 使用 CDO 寄送郵件 使用CDO寄送郵件 不必透過Outlook寄送 必須設定引用項目「Microsoft CDO for Windows 2000 Library」 Option Explicit '宣告變數及參數 Dim objCDO As CDO.Message Public theRng As Range Const myUserId = "yourID" '請修改成你的帳號 Const myPassword = "yourPSW" '請修改成你的帳號密碼 Const mySMTPServer = "smtp.gmail.com" '請修改成你的寄送郵件伺服器 Const mySMTPport = 465 '須修改成你的送件伺服器使用的PORT, Gmail使用的是465 '流程控制 Sub Main() Application.StatusBar = "Sending..." '狀態訊息顯示 Set objCDO = New CDO.Message '創建新的物件 ServerSetting '伺服器設置 Set theRng = ActiveSheet.UsedRange '取的作用工作表使用範圍 fillNsend '填充郵件各欄位資訊並寄送 Set objCDO = Nothing '釋放物件 Application.StatusBar = False '恢復狀態訊息 End Sub '設置郵件伺服器參數 '這是用Gmail測試成功的參數, 請參閱 Email Server 的設置說明 Sub ServerSetting() With objCDO With .Configuration.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSendUserName) = myUserId