[RESOLVED] send email with vb6 with smtp

[coolcurrent4u]

I have develop an application that need to notify admin when somethings goes wrong through email?

How do i send an email :

1 without popping up outlook to the user?
2 and make sure that the message was sent?

am not sending mass email or what ever, just less that 2kb email message that needs to be sent describing the error that has occurred in the app.

thanks

[Hack]

You can either use CDO or vbsendmail for sending emails.

You can find many samples if you search this forums.
http://www.vbforums.com/search.php?searchid=2910939

Check the CodeBank too: http://www.vbforums.com/forumdisplay.php?f=91

[Pasvorto]

I am using this code to send emails to customers without any intervention on the part of the operator. It requires that Microsoft Outlook is running, though.

Dim oApp As Outlook.Application
Dim oEmail As Outlook.MailItem
Set oApp = New Outlook.Application

Screen.MousePointer = vbHourglass
'==============================================
' FEDERAL PACKAGE
'==============================================

fax = Dir("Z:\DAD\FAXES\FAX1.TXT")
If fax <> "" Then
    Set oEmail = oApp.CreateItem(olMailItem)
    With oEmail
    .To = "[email protected]"
    .Subject = "Production Report"
    .BodyFormat = olFormatPlain
    .Body = "Attached is the Production Report"
    .Attachments.Add "Z:\DAD\Faxes\Fax1.txt", olByValue
    .Recipients.ResolveAll
    .Save
    .Send
    End With
    Set oEmail = Nothing
End If

[coolcurrent4u]

dose it require outlook installed or it requires outlook running.

[Pasvorto]

In my case, yes, you will get an error if Outlook is not installed and running.

[coolcurrent4u]

Ok thanks, but i can use your technique. it will fail if another version of outlook was installed than the one used to test it.

[dilettante]

CDO would be a better choice, especially on a server. You're not really supposed to be installing Outlook on servers for automated use, and CDO was provided specifically to handle such things.

My guess: no code handout, solution not accepted. True?

[coolcurrent4u]

ok thanks, i finnaly settled for CDO. But one question, will it work in win7 and vista ?

[dilettante]

Yes, but be careful to set the Configration properly.

There is a lot of bad sample code on the Web that naively relies on CDO initializing based on the current user's Outlook Express or Outlook profile. These often fail on user's computers where Outlook Express does not exist or is not set up for the user. Windows 7 doesn't support OE at all, and Vista had a modified version (Windows Mail) that tends to protect its settings from casual use in this way.

Configuration CoClass

In many cases, the default configuration settings are sufficient to send and post messages successfully. The default configuration settings depend on the software installed on the computer on which you are using the CDO component. When you send messages without associating a Configuration object, these defaults are used; for example, if the computer has the SMTP service installed, the default configuration for sending messages is to write them into files in the SMTP pickup directory. Additionally, various settings can be loaded from Microsoft® Outlook® Express if it is installed. For more information about default settings, see the configuration fields section of the reference.

You might start here if you haven't read the documentation yet.

[coolcurrent4u]

see the code i used

Public Function SendMail(sTo As String, sSubject As String, sFrom As String, _
    sBody As String, sSmtpServer As String, iSmtpPort As Integer, _
    sSmtpUser As String, sSmtpPword As String, bSmtpSSL As Boolean) As String
    
    On Error GoTo SendMail_Error:
    
    Dim lobj_cdomsg      As CDO.Message
    Set lobj_cdomsg = New CDO.Message
    lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = sSmtpServer
    lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = iSmtpPort
    lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = bSmtpSSL
    lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1
    lobj_cdomsg.Configuration.Fields(cdoSendUserName) = sSmtpUser
    lobj_cdomsg.Configuration.Fields(cdoSendPassword) = sSmtpPword
    lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
    lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2
    lobj_cdomsg.Configuration.Fields.Update
    lobj_cdomsg.To = sTo
    lobj_cdomsg.From = sFrom
    lobj_cdomsg.Subject = sSubject
    lobj_cdomsg.TextBody = sBody
    'lobj_cdomsg.AddAttachment ("filepath")
    lobj_cdomsg.Send
    Set lobj_cdomsg = Nothing
    SendMail = "ok"
    Exit Function
SendMail_Error:
    SendMail = Err.Description
End Function

[mitko29]

Or you can use smpt:

Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(TextBox6.Text)
        MyMailMessage.To.Add(TextBox1.Text)
        MyMailMessage.Subject = TextBox2.Text
        MyMailMessage.Body = TextBox3.Text
        Dim SMPT As New SmtpClient(ComboBox1.Text)
        SMPT.Port = ComboBox2.Text
        SMPT.EnableSsl = True
        SMPT.Credentials = New System.Net.NetworkCredential(TextBox4.Text, TextBox5.Text)
        SMPT.Send(MyMailMessage)
        MsgBox("The mail has been send!", MsgBoxStyle.Information, "Mail has been send!")
    End Sub
End Class

[coolcurrent4u]

mitko29

this is not vb.net, its vb6

[mitko29]

mitko29

this is not vb.net, its vb6

I am sorry wrong topic.

[dilettante]

There are Enums defined already for cdoSMTPAuthenticate (CdoProtocolsAuthentication) and cdoSendUsingMethod (CdoSendUsing), so no need for magic numbers.

[coolcurrent4u]

dilettante

what do you mean actually, can you please list the enums, thanks?

[dilettante]

In line 12 and line 16 above you use 1 and 2. Instead you could use the Enum values cdoBasic and cdoSendUsingPort.

You can easily see these things using the object Browser in the VB6 IDE and they are fully described in the documentation. They are, like most Const and Enum values, meant to be used in order to make your programs easier to maintain because a person reading these programs can tell what is being done (without having to go run to the documentation themselves to look up every line of code used).

[coolcurrent4u]

ok thanks for the tip

[Lightning]

Why don't you create a simple .net class that sends the mail, something like mitko29 showed. Call that code from vb6 use [Comvisible] in .net. So you have all code of you're own

[coolcurrent4u]

the thing is tha if i use .net, then i need .net libraries to use the program. That is the reason i still develop in vb6. what if my user does not have internet connection to download .net library?

[mitko29]

wow.........

You always can make a installer for your application and then to include in it the .net framework you need.

I will tell you something about visual basic 6 too :
The program language was made many years ago, and if you want to keep the good work with all programing stuff you have to evolve into c# or vb.net,maybe the syntax is a little strange at the beginning but you will get used.