Безуспешная попытка прикрепить файл к MailItem

Question

Я пытаюсь автоматизировать создание электронного письма, но последний человек должен нажать кнопку «Отправить», чтобы его можно было проверить. Однако я могу получить почтовый элемент, созданный со списком «Кому» и т.п., однако всякий раз, когда я пытаюсь добавить вложение, я получаю сообщение об ошибке. Моя подпрограмма:

Sub EmailReportX(ByVal MailTo As String, AttachFilename As String, AttachFilePath As String, SubjectDate As String)

Dim objOutlook As Object

Dim objMailItem As Object

Dim strAtt As String

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

strAtt = AttachFilePath & AttachFilename

With objMailItem
    .To = MailTo
    .Subject = "Seymour Horst Daily Completions Report " & SubjectDate
    .body = "Morning," & vbCrLf & vbCrLf & "Daily completions report for review" & vbCrLf & vbCrLf & "Regards" & vbCrLf & vbCrLf & "Tim C"
    .Attachments.Add = strAtt
    .display
End With

Debug.Print strAtt

End Sub  

Любые указания относительно того, где я; я ошибаюсь, поскольку noob to VBA, были бы очень признательны!

Спасибо: -)

Answer 1

.Attachments.Add() - это метод, поэтому знак равенства не требуется.

https://docs.microsoft.com/en-us/office/vba/api/outlook.attachments.add

поэтому используйте его так.

With objMailItem
    .To = MailTo
    .Subject = "Seymour Horst Daily Completions Report " & SubjectDate
    .body = "Morning," & vbCrLf & vbCrLf & "Daily completions report for review" & vbCrLf & vbCrLf & "Regards" & vbCrLf & vbCrLf & "Tim C"
    .Attachments.Add strAtt
    .display
End With