Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
отправка сообщений через lotus notes/outlook из VBA excel
 
Добрый день. Помогите, плз, разобраться
Прописан код 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
Изменено: elenaigonina - 6 Апр 2018 11:59:57
Страницы: 1
Читают тему (гостей: 1)