http://www.paulsadowski.com/WSH/cdo.htm
Keith74
#===============================================================
#===============================================================
maybe that helps:
Sub NeueMail2Outbox()
Dim ol, olns, p_out As Outlook.MAPIFolder
Dim neumail As Outlook.MailItem, empfänger
Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
Set p_out = olns.GetDefaultFolder(olFolderOutbox)
neumail = p_out.Items.Add
With neumail
.Recipient.Add "Bernd Meier"
.Subject = "Einladung"
.Body = "Einladung zum Gartenfest" _
& vbCr & "Wann? Am 20. Juni 2000" _
& vbCr & "Wo? Biergarten Zur Linde, München"
' For Each empfänger In neumail.Recipients()
' empfänger.Resolve
' Next
' .Send
End With
gNeandr
#===============================================================
#===============================================================
http://www.paulsadowski.com/WSH/cdo.htm
that page shows how to use MS CDO
- i enabled its reference, and worked fine with the simple example
Sub Mail1()
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "toto@toto.com"
objMessage.To = "tata@tata.com"
objMessage.TextBody = "This is some sample message text."
'==This section provides the configuration information for the remote
SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.toto.com"
'Server port (typically 25)
objMessage.Configuration.Fields.item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
End Sub
#===============================================================
#===============================================================
http://www.rondebruin.nl/cdo.htm
Norman Jones