Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическая отправка писем в офисе 2016 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая отправка писем в офисе 2016 (Макросы/Sub)
Автоматическая отправка писем в офисе 2016
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
 
Ответить
СообщениеУважаемые форумчане. Моя компания решила перейти на офис 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 в 09:40
kainos53 Дата: Понедельник, 23.05.2016, 11:10 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Все заработало после перезагрузки и восстановления.
 
Ответить
СообщениеВсе заработало после перезагрузки и восстановления.

Автор - kainos53
Дата добавления - 23.05.2016 в 11:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая отправка писем в офисе 2016 (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!