Дмитрий(The_Prist) Щербаков, да, этот вариант рабочий, хотя вчера картинка загружалась, но отображаться не хотела, возможно что-то не внимательно делал.
Задача решена, спасибо!
With oMail
.To = sEmail
.CC = sCCEmails
.Subject = frm2Notification.cmbNotificationType & " [#" & sNotiNumber & "]"
.Display
.HtmlBody = frm2Notification.txtMessage & .HtmlBody
If blAttach Then
For i = 1 To UBound(arrAttach)
.Attachments.Add arrAttach(i)
Next i
End If
Set .SendUsingAccount = oAccount
.Send
End With
Задача решена, спасибо!
With oMail
.To = sEmail
.CC = sCCEmails
.Subject = frm2Notification.cmbNotificationType & " [#" & sNotiNumber & "]"
.Display
.HtmlBody = frm2Notification.txtMessage & .HtmlBody
If blAttach Then
For i = 1 To UBound(arrAttach)
.Attachments.Add arrAttach(i)
Next i
End If
Set .SendUsingAccount = oAccount
.Send
End With