Здравствуйте, помогите пожалуйста.
С созданием и отправкой писем из лука посредством екселя разобрался, но не могу разобраться с выбором отправителя.
У меня на луке подключено 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 |
Сколько не копался в сети, ничего не смог найти.