Добрый день. Помогите, плз, разобраться
Прописан код vba для отправки формы excel через почтовые клиенты Lotus и Outlook с формированием определенной темы сообщения.
Протестили-через Outlook отправляется нормально, через lotus файл отправляется , при этом слетает кодировка сообщения.
Сообщения приходят с темами "????" и пр.
В чем может быть причина и как это исправить?
Код макроса:
Прописан код vba для отправки формы excel через почтовые клиенты Lotus и Outlook с формированием определенной темы сообщения.
Протестили-через Outlook отправляется нормально, через lotus файл отправляется , при этом слетает кодировка сообщения.
Сообщения приходят с темами "????" и пр.
В чем может быть причина и как это исправить?
Код макроса:
| Код |
|---|
Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Name
Application.DisplayAlerts = True
With OutMail
.to = Range("S1")
.CC = Range("S2")
.Subject = Range("A5") & "; " & Range("I5") & "; " & Range("E5") & "; " & Range("B5") & "; " & Range("H5")
.Attachments.Add ActiveWorkbook.FullName
.SEND
On Error GoTo 0
MsgBox "Ваше сообщение направлено на Горячую линию.Спасибо"
End With
End Sub
Sub Lotus()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Name
Application.DisplayAlerts = True
With ActiveWorkbook
.SendMail Recipients:="[URL=mailto:Marina.Chikina@gazprombank.ru]почта[/URL]", _
Subject:=Range("A5") & "; " & Range("I5") & "; " & Range("E5") & "; " & Range("B5") & "; " & Range("H5")
.Close SaveChanges:=False
End With
End Sub |
Изменено: - 06.04.2018 11:59:57
