Изображение получено по запросу, полученному при выполнении кода VBA. У меня проблема с отправкой электронной почты на основе листа Excel с использованием кода / макроса VBA.
У меня есть 3 профиля электронной почты, и мне предлагается выбрать профиль, прежде чем Outlook откроет и прикрепит PDF. Как я могу предварительно выбрать профиль, чтобы мне не каждый раз предлагали?
Работает, если Outlook открыт с начала.
Кроме того, как мне удалить PDF после того, как я прикрепил PDF к электронному письму - если это возможно, не меняя слишком много кода?
Я относительный новичок в VBA, поэтому, пожалуйста, будьте конкретны.
Sub SendPDF()
ChDir "D:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Order Form.pdf", _
OpenAfterPublish:=False
Dim OutlookApp As Object
Dim OutlookMailitem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
'Application.DisplayAlerts = False
Set OutlookMailitem = OutlookApp.CreateItem(0)
'Application.DisplayAlerts = True
Set myAttachments = OutlookMailitem.Attachments
With OutlookMailitem
.To = "test@test.com"
.Subject = "Order Form"
'.send
.display
.htmlbody = "Dear Sir/Madam" & .htmlbody
myAttachments.Add "D:\Order Form.pdf"
End With
Set OutlookMailitem = Nothing
Set OutlookApp = Nothing
End Sub