У меня уже есть макрос, который высылает эксель файл адресату из ячейки. Только мне хотелось бы в обращении указать имя получателя, опять таки из ячейки из самого файла. Чтоб обращение не было безликим.
Вот код, хотелось бы после слова Добрый вечер, вставить имя из ячейки D2 Sheets("Main")
Код
Dim OutApp As Object
Dim OutMail As Object
Dim xOutMsg As String
Dim Recipient As Range
On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
Recipient = Sheets("Main").Range(D2).Value
xOutMsg = "<p style='font-family:ARIAL;font-size:22'><b>Добрый день, </b><br/>Прошу рассмотреть мою заявку на заказ в приложении.</p>"
Signature = OutMail.HTMLBody
With OutMail
.To = Sheets("Main").Cells(2, 4).Value & ";" & Sheets("md").Cells(1, 10).Value 'адрес получателя
.Subject = "Ответ: Заявка на заказ " & ActiveWorkbook.Sheets("md").Cells(5, 10) & "_" & TekData 'тема письма
.HTMLBody = xOutMsg & Signature 'текст письма Sheets("md").Cells(3, 10).Value
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
'With OutMail
'.send
'End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = Tru
'ActiveWorkbook.Close
End Sub
Я сделала вот так:
Код
xOutMsg = "<p style='font-family:ARIAL;font-size:22'><b>Добрый день, & Recipient & </b><br/>Прошу рассмотреть мою заявку на заказ в приложении.</p>"
Но это просто выдало слово реципиент как текст(( И понятно, ведь OutMsg - задан как строка.
Здравствуйте, посмотрите на этот файл, может что-то в нем пригодится. Отравляет выделенный диапазон ячеек, адресату из списка, только адреса измените на действительные, а то там сгенерированная абракадабра.
- получили бы то, за что сказали спасибо. Но только с этим .Text нужно аккуратно, можете ##### получить если вдруг числа в такое визуально превратятся.