Mam problem z polskimi znakami przy wysyłaniu maila przy pomocy makra w Excelu 365 przy wykorzystaniu Outlooka.
Dzieñ dobry,
Proszê o potwierdzenie i realizacjê:
Dzieje się to tylko przy konkretnej maszynie (win 7), na innym działa dobrze. Dodatkowo znaki psują się tylko gdy email jest ściągany z arkusza. Gdy wpiszę go na sztywno wszystko działa.
Kod odpowiedzialny za sczytywanie maili z arkusza:
- Kod: Zaznacz cały
Dim strSentTo As Variant
strSentTo = Array(Cells(i, "Z").Value, Cells(i, "AA").Value)
(...)
Kod odpowiedzialny za wysyłanie:
- Kod: Zaznacz cały
(...)
Dim OutlookApp As Outlook.Application
Dim OutlookMail As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
StringVal = Join(strSentTo, ";")
With OutlookMail
.BodyFormat = olFormatHTML
.Body = strBody
.To = StringVal
.Subject = zzamkniete & tytul
.Send
End With
Jeżeli zamiast ".To = StringVal" będę miał ".To =" to wszystko jest dobrze. Ale sczytanie tego samego z komórek rozwala formatowanie maila. Sprawdziłem i nie ma na to wpływu ".BodyFormat", ani też przerobienie treści do ".HTMLBody". Sprawdziłem też język systemu i Excela, w obu przypadkach jest polski i formatowanie komórek z mailami jest ustawione jako Tekst.
Jestem generalnie początkującym w tworzeniu makr i VB (chociaż nie początkującym programistą ogólnie).