Здравствуйте, помогите пожалуйста.
С созданием и отправкой писем из лука посредством екселя разобрался, но не могу разобраться с выбором отправителя.
У меня на луке подключено 2 учетные записи, и отправлять письма необходимо с второстепенной учетки.
Создаю письмо таким образом
на "SM.From" критует.
Сколько не копался в сети, ничего не смог найти.
С созданием и отправкой писем из лука посредством екселя разобрался, но не могу разобраться с выбором отправителя.
У меня на луке подключено 2 учетные записи, и отправлять письма необходимо с второстепенной учетки.
Создаю письмо таким образом
| Код |
|---|
Sub SendMail()
Application.DisplayAlerts = False
'FullFilePath = ThisWorkbook.Path & "\" & FileName & ".xlsx"
Dim OutlookApp As Object, SM As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
SM.To = "1@yandex.ru"
'SM.CC = "1@yandex.ru"
SM.Subject = "Название темы" '& FileName
'SM.From = "2@mail.ru"
On Error Resume Next
'в этом случае открывается письмо
'с подписью той которая по умолчанию в Outlooke
SM.Body = Activedocument.Content
SM.HTMLBody = Activedocument.Content.Text
SM.Display
SM.HTMLBody = "Добрый день!" & SM.HTMLBody
Set SM = Nothing
Set OutlookApp = Nothing
End Sub |
Сколько не копался в сети, ничего не смог найти.
