Как добавить отправителя в макрос, отправляющий электронные письма в VBA excel

Я нашел фрагмент кода в Интернете, который отправляет электронные письма с вложениями в зависимости от данных таблицы Excel. Код работает отлично, но я хотел бы знать, как я могу изменить почтовый ящик, из которого поступают электронные письма? В настоящее время они идут от пользователя, который нажимает почтовый ящик отправки. Но я бы хотел, чтобы они исходили из определенного почтового ящика, к которому пользователь имеет доступ, см. Следующий код:

Sub Send_Files() Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim cell As Range Dim FileCell As Range Dim rng As Range With Application .EnableEvents = False .ScreenUpdating = False End With Set sh = Sheets("Sending Tool") Set OutApp = CreateObject("Outlook.Application") For Each cell In sh.Columns("D").Cells.SpecialCells(xlCellTypeConstants) 'Enter the File Path in E1, you can add more files and extend the range if needed Set rng = sh.Cells(cell.Row, 1).Range("E1:K1") If cell.Value Like "?*@?*.?*" And _ Application.WorksheetFunction.CountA(rng) > 0 Then Set OutMail = OutApp.CreateItem(0) With OutMail .to = cell.Value .Subject = "Email Header" ' This is the body of the email, change the next line to change the email's contents. use "<br>" to create a line break in the email .HTMLBody = "Good Morning " & cell.Offset(0, -3).Value & "," & "<br>" & "<br>" & "Body" For Each FileCell In rng.SpecialCells(xlCellTypeConstants) If Trim(FileCell) <> "" Then If Dir(FileCell.Value) <> "" Then .Attachments.Add FileCell.Value End If End If Next FileCell .Send 'Or use .Display End With Set OutMail = Nothing End If Next cell Set OutApp = Nothing With Application .EnableEvents = True .ScreenUpdating = True End With MsgBox ("Emails Sent Successfully") End Sub 

Ради моего примера позвоним почтовому ящику [email protected], я хотел бы, чтобы это был исходящий почтовый ящик, чтобы получатель хотел ответить, он вернется туда, а не личный адрес пользователя.

Interesting Posts

Почему мой csv-писатель пишет в столбцах не строки?

Excel -VBA помогает, защищает и удаляет защищенные ячейки в соответствии с выбором списка

ClosedXML: доступ к существующей сводной таблице

Журнал временной отметки, который не перезаписывает предыдущую временную метку

создание выпадающего списка в excel при изменении ячейки

Excel VBA SUMIF или SUMIFS для нескольких критериев

Отображать собственное сообщение об ошибке при попытке пользователя отредактировать защищенную ячейку

Как я могу автофильтировать, когда я не уверен, какой столбец он будет?

#Выберите ошибку, используя пользовательскую функцию в Excel

Невозможно перемещать / удалять строки в общей книге – Недостаточно ресурсов

VBA, Loop через каталог crashing excel

Excel VBA MSXML2.XMLHTTP не работает в сети компании

Excel, обобщая последние данные в таблице

изменение оси x в xlsxwriter в python

как запустить макрос, нажав на значение в slicer в excel vba

Давайте будем гением компьютера.