1 Тема от Ирина Полянская

  • Ирина Полянская
  • Member
  • Неактивен
  • Зарегистрирован: 2016-08-19
  • Сообщений: 102

Тема: Отправка сообщений электронной почты из Универсала

Здравствуйте! smile

Подскажите, пожалуйста, как в макросе рассылки сообщений (какой синтаксис ?) сделать подпись с картинкой для отправляемого через электронку письма ?
Пример прилагается.

P.S. В макросе используется SpCDOMessage().


Спасибо!


С уважением!
Ирина Полянская

Post's attachments

PODPIS OIL.jpg 26.12 kb, file has never been downloaded. 

You don't have the permssions to download the attachments of this post.

2 Ответ от Yury Vitovsky Отредактировано Yury Vitovsky (2016-09-05 13:14:50)

  • Yury Vitovsky
  • Yury Vitovsky
  • Member
  • Неактивен
  • Зарегистрирован: 2016-05-11
  • Сообщений: 161

Re: Отправка сообщений электронной почты из Универсала

В тело письма нужно вставить тег вроде такого

<img src="cid:image.png" hspace="20">

И приаттачить картинку методом 

AddRelatedBodyPart

Пример

LOCAL oMessage 
LOCAL cAddress 
LOCAL cPassword
LOCAL cServer
LOCAL nPort
LOCAL objBP

cAddress   := "my_email@my_domain" 
cPassword  := "xxx"
cServer    := "my_smtp_server"
nPort      := 587


oMessage := SpCDOMessage():new(cServer, nPort, cAddress, cPassword)
oMessage:SmtpUseSSL := 0 //0 - обычная отправка, 1 - SSL
oMessage:create()

IF EMPTY(oMessage)
   Warning(, "oMessage is empty")
   RETURN -1
ENDIF

oMessage:message:MimeFormatted := .T.
oMessage:setProperty('Subject',"Example CDO Message")
oMessage:setProperty('To', "recipient@dddddd.com") 
oMessage:setProperty('From', cAddress) 
oMessage:setProperty("HtmlBody", '<html><p>Тестовое письмо</p><img src="cid:image.png" hspace="20"></html>' )
objBP := oMessage:message:AddRelatedBodyPart("D:\icons\logo\image.png", "image.png", 1)      
objBP:Fields:Item("urn:schemas:mailheader:Content-ID") := "image.png"
objBP:Fields:Update()

IF oMessage:Send()
  Warning(, "Сообщение отправлено")
ELSE
  Warning(,oMessage:error)
  RETURN -2
ENDIF

oMessage:destroy()

RETURN 0

Вот тут тоже пример
http://support.jodohost.com/threads/tut … mail.7692/