vba - 發送來自不同用戶的電子郵件

Question

我的客戶想要將excel/vba分發給他的客戶，vba會自動發送電子郵件。

也許發件人應該是某個其他帳戶，而不是使用vba的人的outlook帳戶，因爲某些私人郵件可能在電子郵件中。真的有可能嗎？

另一件事是自動執行此類任務時發生的臭名昭着的彈出警告。當計算機被鎖定時，我聽到Application.SendKeys並不總是工作。

CDO如何完成此任務？

Answer 1

在您最初的問題，你可以使用MailItem.SentOnBehalfOfName與Outlook

在安全警告Outlook的標準兩種解決方案：
1）使用Clickyes
2）安裝Outlook Redemption

Answer 2

您不必使用Outlook發送電子郵件。正如你所問，CDO的工作原理沒有使用Outlook。

這裏有一些代碼讓你開始。

Public Sub SendEmail(Subject As String, Body As String, ToPerson as String) 

Dim iCfg As Object 
Dim iMsg As Object 

Set iCfg = CreateObject("CDO.Configuration") 
Set iMsg = CreateObject("CDO.Message") 

With iCfg.Fields 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email-account" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = "account@domain.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
    .Update 
End With 

With iMsg 
    .Configuration = iCfg 
    .Subject = Subject 
    .TextBody = Body 
    .To = ToPerson 
    .Send 
End With 

Set iMsg = Nothing 
Set iCfg = Nothing 

End Sub