Блог

Я хочу автоматически отправлять электронные письма через Outlook. Он доходит до myAttachments.Add и заявляет:

Объект не поддерживает это свойство или метод.

Я пробовал это несколькими разными способами, но ошибки продолжаются в разделе вложений. Все остальные разделы работают над созданием электронной почты.

Что я делаю не так?

 Sub Send_Emails()

    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments

    Set OutlookApp = New Outlook.Application
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    Set myAttachments = OutlookMail.Attachments
    
    myAttachments.Add Source:=ThisWorkbook, Type:=olByValue
  
    With OutlookMail
        .BodyFormat = olFormatHTML
        .HTMLBody = "Attached is the Transaction Report"
        .To = "email@yahoo.com"
        .Subject = "Transaction Report"
        .Send
    End With
    
End Sub
  

 With OutlookMail
    
    .To = "email@nowherenoplace.com"
    
    .Attachments.Add ThisWorkbook.fullName
    
    .Display

End With