|
|
|
| Уважаемый ALL. Вопрос такой :
Отсылаю почтовые сообщения через CDO
Public Function SendMailFromCDO(ByVal EMailAdr, Optional ByVal msgSubject As String, _
Optional ByVal msgTextBody As String, Optional ByVal msgCc As String, _
Optional ByVal Attachments As String) As Boolean
On Error GoTo Err_SendMailFromCDO
Dim iMsg As Object
Dim IPAdres As String
Const conf = "http://schemas.microsoft.com/cdo/configuration/"
Set iMsg = CreateObject("CDO.Message")
iMsg.Configuration.Load -1 'cdoDefaults
With iMsg.Configuration
.Fields(conf + "languagecode") = "ru"
.Fields(conf + "postusing") = 0
.Fields(conf + "sendusername") = "Диспетчер"
.Fields(conf + "sendusing") = 2
.Fields(conf + "smtpauthenticate") = 0 '0-анонимно 1-базовая 2-HTML
.Fields(conf + "smtpconnectiontimeout") = 120
.Fields(conf + "smtpserver") = IPAdres 'Имя или адрес почтового сервера
.Fields(conf + "smtpserverport") = "25" 'Номер порта
.Fields(conf + "usemessageresponsetext") = True
.Fields("urn:schemas:mailheader:content-language") = "windows-1251"
.Fields.Update
End With
With iMsg
.From = "AA@BB" 'Адрес отправителя
.To = EMailAdr
.CC = .Configuration.Fields(conf + "sendemailaddress")
If msgCc <> "" Then .CC = msgCc
If msgSubject <> "" Then .Subject = msgSubject
If msgTextBody <> "" Then .TextBody = msgTextBody
If Attachments <> "" Then .AddAttachment Attachments
.Send
End With
Set iMsg = Nothing
SendMailFromCDO = True
Ex_SendMailFromCDO:
Exit Function
Err_SendMailFromCDO:
SendMailFromCDO = False
MsgBox Err.Description
Resume Ex_SendMailFromCDO
End Function
можно ли вид сообщения подцепить из заранее сделанного черновика и если можно, то как это сделать? | |
|
| |
|
|
|
| Так?
strBody = "Здесь HTML текст."
.HTMLBody = strBody 'тело письма | |
|
| |
|
|
|
| Имелось ввиду не это. HTMLBody это текст "основного" сообщения.
Проблема в том, что есть шаблон сделанный в Outlook с кнопками и полями.
Нужно вставить его в сообщение, заполнить поля и переслать через SMTP сервер. | |
|
| |