Автоматическая отправка писем в офисе 2016

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая отправка писем в офисе 2016 (Макросы/Sub)

kainos53

Дата: Понедельник, 23.05.2016, 09:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Уважаемые форумчане. Моя компания решила перейти на офис 2016 и как следствие такой переход приносит одни проблемы.

У меня перестало формироваться автоматическое письмо. Прошу вашего содействия в фиксе данного бага.

вот код макроса:
[vba]

Код

Sub test()
Application.DisplayAlerts = False
Dim OutlookApp As Object, SM As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = ""
SM.CC = ""
y = "test1 "
x = InputBox("Введите номер:")
If x = "" Then
SM.Subject = y & "With out WO or SN."
Else
SM.Subject = y & x
End If
On Error Resume Next
'в этом случае открывается письмо
'с подписью той которая по умолчанию в Outlooke
SM.Body = Activedocument.Content
SM.HTMLBody = Activedocument.Content.Text
If Dir(FullFilePath) <> "" Then
SM.Attachments.add ("") 'Адрес вложения
Else
MsgBox "Файл для вложения не найден: " & Chr(13)
End If
SM.Display
SM.HTMLBody = "test2" & SM.HTMLBody
Set SM = Nothing
Set SM = Nothing
Set OutlookApp = Nothing
Dim objClpb As New DataObject, sStr As String
    sStr = "test3"
    objClpb.SetText sStr
    objClpb.PutInClipboard
End Sub

[/vba]

Сообщение отредактировал kainos53 - Понедельник, 23.05.2016, 10:20

Ответить