Dzień dobry.
Napotkałam duży problem podczas tworzenia makra do korespondencji seryjnej. Napisałam kod, który dzieli tabelę na klientów oraz wysyła im maila z wiadomością ogólna i załącznikiem z wyselekcjonowanymi danymi.
W czasie testów (prowadziłam je z przypisanym moim adresem e-mail do każdego klienta) wszystko działało jak należy. Po przypisaniu docelowych adresów e-mail korespondencja się wysłała z poprawnymi załącznikami, ale treść była pusta.
Problem wystąpił po zmianie formatu maila na HTML (przez znacznik < HTML > w zdefiniowanej treści maila). Wcześniej wysyłałam maile bez problemu tym samym makrem, ale chciałam "upiększyć" treść, a najłatwiej mi było to zrobić w html.
Czy jest jakieś wyjaśnienie, dlaczego w przypadku wysyłania korespondencji do samej siebie wszystko działa jak należy, a do innych już nie?
Z góry bardzo dziękuję za pomoc.
Dim OLApp As Outlook.Application
Dim OLMail As Object
Dim mail As String
mail = Sheets("886322").Range("A2").Value
Sheets("886322").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\xxxxxxx " & Miesiąc & ".xlsx"
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(0)
OLApp.Session.Logon
Dim Msg As String
Msg = "<HTML><BODY>Dzień dobry,<br/><br/><br/>"
Msg = Msg & "xxxxxxxxx<br/><br/><br/><br/>"
Msg = Msg & "Pozdrawiam,<br/>"
Msg = Msg & "</body> </html>"
With OLMail
.To = mail
.CC = ""
.BCC = ""
.Subject = "xxxxxxxx"
.BodyFormat = 2
.HTMLBody = Msg
.Attachments.Add (ThisWorkbook.Path & "\xxxxxxxxx " & Miesiąc & ".xlsx")
.Send
End With
ActiveWorkbook.Close SaveChanges:=True
Kill ThisWorkbook.Path & "\xxxxxxxxx " & Miesiąc & ".xlsx"
Set OLMail = Nothing
Set OLApp = Nothing