Я провел последние пару дней, пытаясь выяснить это, мне удалось устранить все ошибки, однако электронная почта не появляется в моем почтовом ящике.Я пытался все изменить, и все же это не появляется.Основная цель - отправить всю электронную книгу по электронной почте с кнопкой (я связал кнопку с макросом). В любом случае, вот код, который у меня уже есть
Sub Send_mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "example@email.com"
.From = "example@email.com"
.CC = ""
.BCC = ""
.Subject = "Assunto"
.Body = "Corpo"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
(ps я действительно изменил электронную почтучтобы опубликовать это, это не то, что у меня есть в коде)