Отправка писем с вложениями VBA

Question

Я пытаюсь добавить функцию вложения в мои электронные письма.Мой почтовый код работает, но вложения отправляются в виде файлов ATT00001.bin.

Переменная Forms! [FrmMain]! TabCtl54.Pages ("page56"). Controls ("subtblcontent"). Form! [attachmentlnk] - это текстовое поле в форме, в которое я бы поместил имя моего файла.

attachmentlnkvar = "file:///C:/Users/desktopname/Desktop/" & Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] & ".pdf"

With cdomsg
.To = emailstr
.FROM = fromemailstr
.subject = Forms!frmMain.txtSubject
.Attachments.Add attachmentlnkvar
.HTMLBody = strHTML
.Send

End With
    Set cdomsg = Nothing

Есть ли способ отправить мои файлы в формате pdf?

Answer 1

Вместо .Attachments.Add attachmentlnkvar вы пробовали .AddAttachment attachmentlnkvar?Это то, что я использую для отправки отчетов в формате PDF через SMTP-сервер вместо Outlook.

Answer 2

Проблема с вашим SMTP-сервером.Попытайтесь поместить приложение после тела, чтобы избежать этой проблемы.Если это не сработает, попробуйте отправить сообщение в виде обычного текста вместо HTML, используя:

.TextBody = bodyText

ПРИМЕР:

attachmentlnkvar = "C:/Users/desktopname/Desktop/" & Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] & ".pdf"

With cdomsg
    .To = emailstr
    .FROM = fromemailstr
    .Subject = Forms!frmMain.txtSubject
    .HTMLBody = strHTML
    .AddAttachment attachmentlnkvar
    .Send
End With

Set cdomsg = Nothing

ОБЪЯСНЕНИЕ: https://kb.mit.edu/confluence/pages/viewpage.action?pageId=4981187

Answer 3

Не используйте file:// и т. Д., Только путь.И обратная косая черта.

attachmentlnkvar = "C:\Users\desktopname\Desktop\" & Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] & ".pdf"