Du kan benytte CDO:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_overview_of_cdo.aspDa min mail server desværre er berørt af strømsvigtet sjælland/skåne kan jeg ikke teste nedenstående, men det er hugget fra et script jeg har skrevet tidligere, og mener at det er en version der virker!
Jeg fandt også følgende ved at søge på iMsg på msdn/library
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_sending_and_posting_messages.aspEndvidere er der et eksempel på hvordan man sender attachments:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_sending_and_posting_messages.aspDet er et års tid siden jeg brugte CDO, men det ser ud til at være blevet noget bedre dokumenteret siden sidst, så nedenstående er måske ikke længere den smarteste(eneste) måde at gøre tingene på!
strFrom = "ME"
strTo = "YOU"
strSubject = "TestMail"
strBody = "My not very interesting body"
strServer = "My smtp server"
Set iMsg = CreateObject("CDO.Message")
Set iConf = iMsg.Configuration
Set Flds = iConf.Fields
Flds("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
Flds("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'cdoBasic
Flds.Update
Set Flds = Nothing
'Creating a new iMessage
With iMsg
.From = strFrom
.Subject = strSubject
.TextBody = strBody
.To = strTo
.Fields.Update
End with
iMsg.Send