Sending Email through Gmail using VB 6.0
Posted by codingsense on July 17, 2009
Here is a sample code that is used to send emails from any SMPT server using CDO in Visual Basic 6.0.
Here first i have added a reference to the project by navigating to Project -> references and adding Microsoft CDO for windows 2000 Library.
Sub SendEmail() Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' send one copy with Google SMTP server (with autentication) schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpserver") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = Username@gmail.com Flds.Item(schema & "sendpassword") = password Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = To .From = firstname.lastname@example.org .Subject = "Mail from gmail" .HTMLBody = "Test message using CDO in vb6 from Gmail smtp" Set .Configuration = iConf .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub
If you need to send mail from .Net here is the procedure.