通過VBA發送帶有附件的Outlook電子郵件

Question

我希望宏在完成後通過Outlook通過Outlook向電子郵件發送電子郵件。

我正在測試這與我自己和同事的電子郵件地址，我得到一個「無法送達」Error。

該消息表示無法聯繫到收件人，並建議稍後嘗試發送電子郵件。

如果社區會查看我迄今爲止產生的代碼，並讓我知道它是我的代碼還是導致錯誤的系統，我將不勝感激。 （我有一個強烈的感覺，它是代碼！）

Sub CreateEmail() 

Dim OlApp As Object 
Dim OlMail As Object 
Dim ToRecipient As Variant 
Dim CcRecipient As Variant 

Set OlApp = CreateObject("Outlook.Application") 
Set OlMail = OlApp.createitem(olmailitem) 

For Each ToRecipient In Array("jon.doe@aol.com") 
OlMail.Recipients.Add ToRecipient 
Next ToRecipient 

For Each CcRecipient In Array("jon.doe@aol.com") 
With OlMail.Recipients.Add(CcRecipient) 
.Type = olCC 
End With 

Next CcRecipient 

'Fill in Subject field 
OlMail.Subject = "Open Payable Receivable" 


'Add the report as an attachment 

OlMail.Attachments.Add ("C:\OpenPayRecPrint2.pdf") 


'Send Message 

OlMail.Send 


End Sub 

Answer 1

確保您參考Outlook對象庫

Option Explicit 
Sub CreateEmail() 

    Dim OlApp As Object 
    Dim OlMail As Object 
    Dim ToRecipient As Variant 
    Dim CcRecipient As Variant 

    Set OlApp = CreateObject("Outlook.Application") 
    Set OlMail = OlApp.createitem(olmailitem) 

    For Each ToRecipient In Array("jon.doe@aol.com") 
     OlMail.Recipients.Add ToRecipient 
    Next ToRecipient 

    For Each CcRecipient In Array("jon.doe@aol.com") 
     With OlMail.Recipients.Add(CcRecipient) 
     .Type = olcc 
    End With 
    Next CcRecipient 

    'Fill in Subject field 
    OlMail.Subject = "Open Payable Receivable" 


    'Add the report as an attachment 
    OlMail.Attachments.Add ("C:\temp\test1.xlsx.") 
    OlMail.Display ' <--for testing, to send use OlMail.Send 

    'OlMail.Send 
End Sub 

添加多個CcRecipient In Array("jon.doe@aol.com","jon.doe@aol.com")