VB 6.0 - how to send email using VB?

hello! please help on how to send an email using VB.. Thanks in advance...

They have given sample code for sending through SMTP or by referencing OUTLOOK.


http://forums.devx.com/printthread.php?t=21954

Put a label on your form named label1 and change the  label caption to : Compose Mail --- or what ever you wish. 

[CODE]

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub label1_Click()
 With label1
 .Drag vbBeginDrag
End With
End Sub

Private Sub label1_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is label1 Then
        With label1
    Call ShellExecute(0&, vbNullString, "Mailto:" & .Caption, vbNullString, vbNullString, vbNormalFocus)
    End With
    End If
End Sub
[/CODE]

1. Open a new project in Visual Basic.  
2. On the Tools menu, choose References and select the Microsoft CDO 1.21 Library.  
3. Add a CommandButton object to the default form. Accept the default name, Command1.  
4. Copy the following code into the General Declarations section of the default form.     Option Explicit

     Private Sub Command1_Click()
       Dim objSession As Object
       Dim objMessage As Object
       Dim objRecipient As Object

       'Create the Session Object.
       Set objSession = CreateObject("mapi.session")

       'Logon using the session object.
       'Specify a valid profile name if you want to.
       'Avoid the logon dialog box.
       objSession.Logon profileName:="MS Exchange Settings"

       'Add a new message object to the OutBox.
       Set objMessage = objSession.Outbox.Messages.Add

       'Set the properties of the message object.
       objMessage.subject = "This is a test."
       objMessage.Text = "This is the message text."

       'Add a recipient object to the objMessage.Recipients collection.
       Set objRecipient = objMessage.Recipients.Add

       'Set the properties of the recipient object.
       objRecipient.Name = "John Doe"  '<---Replace this with a valid
                                       'display name or e-mail alias
       'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
       'they all have a constant value of 1.
       objRecipient.Type = mapiTo
       objRecipient.Resolve

       'Send the message.
       objMessage.Send showDialog:=False
       MsgBox "Message sent successfully!"

       'Logoff using the session object.
       objSession.Logoff
     End Sub
					
 
5. Run the project. Click Command1. You have sent e-mail from Visual Basic.

Hi,

see this site

http://forums.devx.com/showthread.php?threadid=21954
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_20837141.html