開始發問
0

請問calc能使用cdo.message 發gmail信件嗎?

提問於 2019-05-30 07:53:48 +0200

edp2100 大頭貼

calc如何使用 巨集 發mail 謝謝

編輯 重新標籤 舉報濫用 關閉 合併 刪除
1

已回答 2019-05-30 12:14:48 +0200

edp2100 大頭貼

終於找到解決辦法

Option VBASupport 1

Sub Main
SendMail= CreateObject("CDO.Message")
ConfURL =  "http://schemas.microsoft.com/cdo/configuration/"

With SendMail.Configuration.Fields
        .Item( ConfURL & "smtpusessl" ) = true
        .Item( ConfURL & "smtpauthenticate" ) = 1
        .Item( ConfURL & "smtpserver" ) = "smtp.gmail.com"
        .Item( ConfURL & "smtpserverport" ) = 465
        .Item( ConfURL & "sendusing" ) = 2
        .Item( ConfURL & "sendusername" ) = "xxx@gmail.com"
        .Item( ConfURL & "sendpassword" ) =  "mail password"
        .Update
End With

With SendMail
  .Subject = "LibreOffice Calc 巨集發信測試"
  .From = "發信者電子郵件"
  .To = "收件者電子郵件"
  .HTMLBody = "LibreOffice Calc 巨集發信測試"
  .Send
End With

SendMail = nothing
End Sub
編輯 舉報濫用 刪除 連結 更多
登入或註冊回答問題

提問工具

1 位粉絲

統計

已提問: 2019-05-30 07:53:48 +0200

已讀: 9 次

最後更新時間: May 30