Database Search

TechHome

• !!NEWSFLASH!!
• 500 Status Unable to Relay Discussion
• Adding HEADERS to Postie Emails
• Bulk Emailer
• CDO to Send SSL Email
• Change the DNS Name in Header
• Email Error Information
• Email Reader
• Email with Embedded Graphic
• Error 550 Relaying is prohibited using KSendText
• Extension on file is changed
• Extract the HTML message from Postie raw output
• Gmail File Attachment Issue
• Grabbing Individual Msgs from kGetMail
• Header Data in the Body of Email
• kGetMail and Pattern Matching
• kGetMail attachments
• kGetMail Converting File Endings
• kGetMail Get Embedded Images in Raw Email
• kGetMail saving HTML
• kGetMail with Delete Flag and Groupwise
• kSendMail Error 10060
• kSendText Error 10013
• kSendText Error 10061 when Crystal Reports is Installed
• kSendText failing - status - 503 5.0.0 Need RCPT
• kSendText Flags Explained
• kSendText not Sending Emails and Port Issues
• kSendText Simple Example
• kStatusInfo Return Codes
• Loop thru local email accounts and forward to SMTP server
• Postie and MailServer Probs
• Postie and MS Exchange
• Postie and POP3 Updates
• Postie and Return Receipts
• Postie Email via Hotmail
• Postie Error 10053
• Postie Error 501
• POSTIE Extender Error 10061
• Postie IMAP4 message deletion
• Postie Send Gmail
• Postie Speed
• Postie WIL Extender Load Error 1437
• Problem with Returned Email
• Read Email SSL
• Send Email with dialog
• Send Email With Image
• Send Text Formatted as a Table
• Simple Email Reader
• SMTP Session Authentication Failed
• Status 550 - Invalid Address and SMTP Mail Server Info
• Text Attachments and Conversion of CRLFs
• Use Postie for Mail Forwarding
• v10025 and Decode Headers with Some Charsets

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

CDO to Send SSL Email

 Keywords: send mail sendmail email SSL TSL Authentication GMAIL Postie 

;***************************************************************************
;**   CDO Send Mail Using SSL
;** 
;** 
;** Purpose:   Send Email via GMAIL SMTP server using SSL 
;** 
;** This code requires CDO: http://support.microsoft.com/?kbid=171440
;** CDO gets installed by default with many of the following applications:
;** Outlook, Exchange, IIS, Windows 2000, Windows 2003   
;** 
;** This code expects you to have ENABLED SMTP in your GMAIL settings
;** 
;** Revisions: 2009.10.30 Deana Falk
;***************************************************************************


cdoSendUsingPickup = 1 ;Send message using the local SMTP service pickup directory. 
cdoSendUsingPort = 2 ;Send the message using the network (SMTP over the network). 
cdoAnonymous = 0 ;Do not authenticate
cdoBasic = 1 ;basic (clear-text) authentication
cdoNTLM = 2 ;NTLM

objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "me@my.com" 
objMessage.To = "test@soandso.com" 
objMessage.TextBody = "This is some sample message text.." : @CRLF : "It was sent using SMTP authentication."

;This section provides the configuration information for the remote SMTP server.
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.gmail.com"

;Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

;Your UserID on the SMTP server
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

;Your password on the SMTP server
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"

;Server port (typically 25)
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465  

;Use SSL for the connection (False or True)																					 			
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = @TRUE

;Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

Exit




Article ID:   W17586

Filename:   CDO to Send SSL Email.txt
File Created: 2008:10:30:14:21:22
Last Updated: 2008:10:30:14:21:22