Отправка html письма

[avtoIT]

Мне предложили использовать такую функцию для отправки писем:

Func _SendMail(ByRef $sMailTo, ByRef $sMailSub, ByRef $sMailBody, ByRef $sMailAttach)
	Local $sLink, $hMAIL
	$sLink = "http://schemas.microsoft.com/cdo/configuration/"
	$hMAIL = ObjCreate ("CDO.Message")
		With $hMAIL
			.From = "****@mail.ru"
			.To = $sMailTo
			.Subject = $sMailSub
			.TextBody = $sMailBody
		   .AddAttachment ($sMailAttach)
		EndWith
		With $hMAIL.Configuration.Fields
			.Item ($sLink & "sendusing") = 2
			.Item ($sLink & "smtpserver") = "smtp.mail.ru"
			.Item ($sLink & "smtpusessl") = True
			.Item ($sLink & "smtpauthenticate") = 1
			.Item ($sLink & "sendusername") = "***@mail.ru"
			.Item ($sLink & "sendpassword") = "pswd"
			.Item ($sLink & "smtpserverport") = 465
			.Update
		EndWith
	$hMAIL.Send
EndFunc

Но к сожалению, в этом примере перестал отправляться html код письма (письмо приходит, но все теги не преобразуются, а видны как текст). Как это можно исправить?

body выглядит примерно так:

<b>123</b> 123.

 

[alex33]

.TextBody = $sMailBody

Заменяем .TextBody на .HTMLBody и радуемся.

А вот универсальное решение:

If StringInStr($sMailBody, "<") And StringInStr($sMailBody, ">") Then
	.HTMLBody = $sMailBody
Else
	.TextBody = $sMailBody & @CRLF
EndIf

 

[avtoIT]

Спасибо, огромное!
А где можно подробнее прочитать об этом?

 

[alex33]

А где можно подробнее прочитать об этом?

Google или Яндекс в помощь.

 

[avtoIT]

Google или Яндекс в помощь.

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

 

[alex33]

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

.From = '"vasya pupkin" <[email protected]>'

 

[avtoIT]

аа... а иконку тоже можно как-то установить?

 

[alex33]

аа... а иконку тоже можно как-то установить?

Как посмотреть свойства письма?
Вот там поищите что-нибудь связанное с иконкой, если оно, конечно, там есть...