Sending MIME multipart/alternate email

hellferret · Sep 19, 2003

I'm attempting to write a bulk email function that sends a MIME mulipart/alternate email so that it displays a text or html message depending on the recipient's client (which is unknown).

I'm currently under a big pile of things like MAPI, SMTP, CDONTS and all sorts of things I know very little about. Currently I'm using the Outlook Object Model (9.0) to control the sending of the mail - is it possible to do what I want using this or is there a better method??

HF

paulbent · Sep 19, 2003

I would use CDONTS or CDO for Exchange 2000 (it's successor). This gives you control over the internet message formats at run-time.

In Outlook, these settings are under Tools | Options and aren't exposed in the object model

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

mrmovie · Sep 19, 2003

i would go for an smtp mail

set imsg = createobject("cdo.message&quot

set iconf = createobject("cdo.configuration&quot

Set Flds = iConf.Fields
With Flds
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "mail.fsc.net" 'ToDo: Type a valid SMTP server name.
.Update
End With

strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> autoupdate xp</b></br>"
strHTML = strHTML & "<hr>"
strHTML = strHTML & "...</BR>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
strSubject = strComputername & ", autoupgrade to windows XP"
strFrom = strComputername & "@fujitsu-siemens.com"
strAttachment = WshShell.ExpandEnvironmentStrings("%windir%&quot

& "\logFSC\XP-Upgrade\aupdxp.ini"
iMsg.AddAttachment(strAttachment)

Set fldDump = FSO.GetFolder(WshShell.ExpandEnvironmentStrings("%windir%&quot

& "\LOGFSC\XP-Upgrade&quot

For Each aFile In fldDump.Files
'msgbox aFile
If Right(aFile,4) <> ".bat" Then
iMsg.AddAttachment(aFile)
End If
Next
Set fldDump = Nothing

With iMsg
Set .Configuration = iConf
.To = "X-LAB@fujitsu-siemens.com"
.From = strFrom
.Subject = strSubject
.HTMLBody = strHTML
.Send
End With

strongm · Sep 19, 2003

>ExpandEnvironmentStrings

<spit>

(see posts passim...)

mrmovie · Sep 19, 2003

strongm, i dont understand your ref to expandenvstr, nor do i understand the <spit>

nor the (see posts passim...)

are your posts VB commands i can use in a module?
or do i need some sort of sandals and socks translator for them??? perhaps a beard and specs would help??

hellferret · Sep 22, 2003

Thanks guys.

I've tried using both SMTP and CDONTS methods. But have different problems with each.

SMTP: Fine with internal addresses - but failing on authentication when sending external. I'm assuming if I set the from address then the mail server will authenticate it the same way as if I sent an email through Outlook??

CDONTS/Outlook: This sends to external addresses fine, but the MIME formatting is wrong. The HTML version shows up fine but on a client that only recieves text they recieve a load of nonsense.

Would be very grateful if you could clear up suggest anything for either of these problems.

HF

mrmovie · Sep 24, 2003

not sure why the smtp would fail on external addresses. im pissing in the dark but dns issues with smtp mail server?
did you try setting the from address???

hellferret · Sep 24, 2003

Thanks - solved the problem now. Our security admin had not allowed mail to be relayed outside from my IP.

HF

strongm · Sep 24, 2003

> i dont understand your ref to expandenvstr

Well, your solution includes a call to it...

>nor do i understand the <spit>

...I am not a fan of using environment strings if they can be avoided...

>nor the (see posts passim...)

...and I've explained my reasons on several occassions in posts to this forum in the past

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Sending MIME multipart/alternate email

hellferret

Programmer

paulbent

Programmer

mrmovie

Technical User

strongm

MIS

mrmovie

Technical User

hellferret

Programmer

mrmovie

Technical User

hellferret

Programmer

strongm

MIS

Similar threads

Part and Inventory Search

Sponsor