Solved

Send mails via Authsmtp using a visual Basic programm (VB6)

Posted on 2010-08-24
3
425 Views
Last Modified: 2013-11-30
Helllo

I am looking for an exemple on how to send an email from a VB6 program using the smtp server 'authsmtp' and without using an email client like Outlook etc
Authsmtp website = www.authsmtp.com
0
Comment
Question by:Websnaky
3 Comments
 
LVL 69

Expert Comment

by:Éric Moreau
ID: 33509491
0
 
LVL 7

Expert Comment

by:gnegrota
ID: 33509615
example code VB.NET attached
You MUST use VB6 ?!
Private Sub Page_Load(sender As Object, e As System.EventArgs)
   Dim mail As New MailMessage()
   mail.To = "me@mycompany.com"
   mail.From = "you@yourcompany.com"
   mail.Subject = "this is a test email."
   mail.Body = "Some text goes here"
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "my_username_here") 'set your username here
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "super_secret") 'set your password here
   SmtpMail.SmtpServer = "mail.mycompany.com" 'your real server goes here
   SmtpMail.Send(mail)
End Sub 'Page_Load

Open in new window

0
 
LVL 3

Accepted Solution

by:
DeltaR7 earned 125 total points
ID: 33509685
Here is a full VB6 code
note there might be some fields in you need to rename or delete

Private Sub cmdSend_Click()



Dim a As String

Dim errorBool As Boolean



On eror GoTo Errorhandler



Set m_objCDO = CreateObject("CDO.Message")

Set m_objCDOcon = CreateObject("CDO.Configuration")



Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort = 2

Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"

Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

Const cdoBasic = 1

Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"

Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"





        'Sending email notification



Set Fields = m_objCDOcon.Fields

'Setting up Message parameters

      With Fields

      .Item(cdoSendUsingMethod) = cdoSendUsingPort

      'Replace with your SMTP server

      .Item(cdoSMTPServer) = txtEmailServer.Value

      .Item(cdoSMTPServerPort) = CInt(txtServerport)

      .Item(cdoSMTPConnectionTimeout) = 100

      'Only used if SMTP server requires Authentication

      If chkLogin = -1 Then

      .Item(cdoSMTPAuthenticate) = cdoBasic

      .Item(cdoSendUserName) = txtLogin

      .Item(cdoSendPassword) = txtPassword

      End If

      .Update

       End With

        

       'Passing parameters to message object

       Set m_objCDO.Configuration = m_objCDOcon

    

    With m_objCDO

        'Replace with email you wish the message to be sent to

        .To = txtTo

        If Not (txtCC.Value = "") Then

        .CC = txtCC

        End If

        If Not (txtBCC.Value = "") Then

        .BCC = txtBCC

        End If

        'Replace with email you wish the message to be from

        .From = txtFrom

           

        ' Attachment using known static physical path

        '.AddAttachment "c:\Multiping.xls"

        '.AddAttachment Server.MapPath("images/asp101-100x30.gif")

        ' Attachment added directly from a URL

                'Replace with subject

        

        .Subject = txtSubject

        

        'Replace with information you want to be sent

        If Not (txtMessage.Value = "") Then

        .HTMLBody = txtMessage

        End If

If txtTo.Value = "" Or IsNull(txtTo) Then

    a = MsgBox("Please fill out a recipient", vbInformation, "To")

    txtTo.SetFocus

Else

    For i = 1 To CInt(txtNumber)

          .Send

    Next

    a = MsgBox("Your Message has been sent", vbInformation, "Message Sent")

End If









txtTo = ""

txtSubject = ""

txtMessage = ""

    End With

    

Errorhandler:

     If Not (Err.Number = 0) Then

   a = MsgBox("An error has occured: " & Err.Description, vbCritical, "Error")

   Exit Sub

   End If

    

End Sub

Open in new window

0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Suggested Solutions

It seems a simple enough task, yet I see repeated questions asking how to do it: how to pass data between two forms. In this article, I will show you the different mechanisms available for you to do just that. This article is directed towards the .N…
What is Usenet? There are many different opinions on exactly what Usenet is an isn't. Many opinions are incorrect simply out of ignorance. The Wikipedia listing about Usenet does a good job of explaining it, so instead of repeating it all here I wi…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now