22-12-2010, 22:41
|
|
|
חבר מתאריך: 16.01.07
הודעות: 16
|
|
שליחת מייל עם cdo
האם יש דרך לשנות את השדה FROM שישלח בעברית ולא יציג ?????
אני מצרף את הקוד הרלוונטי
Dim objMsg
Dim objConfig
Set objMsg = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
Dim objFields
objFields.Update
Set objMsg.Configuration = objConfig
objMsg.To = "email@email.com"
objMsg.From = "אי מייל בעברית<email@email.com"
objMsg.Subject = "כלכלי לי, אתר הדילים שלי - שמחים שהצטרפת" '
objMsg.TextBody = txMessage
objMsg.HTMLBody = txMessage
objMsg.HTMLBodyPart.charset = "windows-1255"
objMsg.BodyPart.charset = "windows-1255"
|