| Вопрос: Создание макросом письма в формате HTML | Добавлено: 13.09.13 11:02 |
Автор вопроса:  Василий
|
|
Друзья помогите в следующем деле
пытаюсь отправить письмо с помощью следующего кода: Sub Send_Mail() Const CDO_Cnf = "http://schemas.microsoft.com/cdo/configuration/" Dim oCDOCnf As Object, oCDOMsg As Object Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String On Error Resume Next SMTPserver = "smtp.yandex.ru" sUsername = "user@yandex.ru" sPass = "usercode" sTo = "user@list.ru" ' sFrom = "user@yandex.ru" ' sSubject = "Send_mail" ' Set oCDOCnf = CreateObject("CDO.Configuration") With oCDOCnf.Fields .Item(CDO_Cnf & "sendusing") = 2 .Item(CDO_Cnf & "smtpauthenticate") = 1 .Item(CDO_Cnf & "smtpserver") = SMTPserver .Item(CDO_Cnf & "sendusername") = sUsername .Item(CDO_Cnf & "sendpassword") = sPass .Update End With sBody = "<html><head><body><b> <img src=""pic""/> picture</b></body></head></html>" Set oCDOMsg = CreateObject("CDO.Message") With oCDOMsg Set .Configuration = oCDOCnf .BodyPart.Charset = "windows-1251" .From = sFrom .To = sTo .Subject = sSubject If Len(sAttachment) > 0 Then .AddAttachment sAttachment .AddRelatedBodyPart "C:\image.jpg", "pic", 1 .TextBody = sBody .Send End With Set oCDOMsg = Nothing: Set oCDOCnf = Nothing Письмо уходит, но приходит в формате "Обычный текст", и картинка как вложение, а не в теле письма. Подскажите, что делаю неправильно или что еще надо дописать. Огромное спасибо заранее |
| Ответы | Всего ответов: 0 |
Страница: