Моя цель - отправлять электронные письма, используя таблицу Excel, содержащую всю необходимую информацию.
Я нашел файл с почти идеальным макросом. Используя этот файл, я мог отправлять электронные письма с CC, темой, приложением и текстом сообщения. Что мне действительно нужно, так это возможность отправлять изображение в виде тела сообщения.
Я пытался сделать много вещей, чтобы это произошло, но, поскольку я не эксперт по VBA, ничего не получалось.
Я отправляю код с любезным запросом о помощи по добавлению кода, позволяющего мне отправлять текст сообщения в виде изображения.
Option Explicit
Sub Send_Mails()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Send_Mails")
Dim i As Integer
Dim OA As Object
Dim msg As Object
Set OA = CreateObject("outlook.application")
Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))
For i = 2 To last_row
Set msg = OA.createitem(0)
msg.To = sh.Range("A" & i).Value
msg.cc = sh.Range("B" & i).Value
msg.Subject = sh.Range("C" & i).Value
msg.Body = sh.Range("D" & i).Value
If sh.Range("E" & i).Value <> "" Then
msg.Attachments.Add sh.Range("E" & i).Value
End If
msg.send
sh.Range("F" & i).Value = "Sent"
Next i
MsgBox "All the mails have been sent successfully"
End Sub
Заранее благодарю всех, кто помогает!
Каро