send e-mails from vb6

[sachinsugandhi]

hello to all,
can any body help me about how can i send e-mail to any body from my vb program.

[jim mcnamara]

Use the MS Mapi control. This code sends readme.txt to users listed in the file mailrecipients.txt

Sub mailIt()
    Dim msgtext As String
    Dim i, tmp(10)
    
    Dim index As Variant
    readReadMe msgtext
    getMailRecipients tmp(), index
    With frmMain
       .MapiSess.Action = mapSignOn
       .List1.AddItem "Logging on to Mail Server"
       .List1.ListIndex = .List1.ListCount - 1
       .MapiMess.SessionID = .MapiSess.SessionID
       For i = 1 To index
            .MapiMess.Action = mapCompose
            .MapiMess.MsgNoteText = msgtext
            .MapiMess.RecipAddress = tmp(i)
            .MapiMess.Action = mapSend
       Next
       .List1.AddItem "Completed mail message"
       .MapiSess.Action = mapSignOff
       .List1.AddItem "Mail sent."
       .List1.ListIndex = .List1.ListCount - 1
    End With
End Sub

Sub getMailRecipients(s(), m)
    Dim i, j, x
    Dim a$, tmp
    i = FreeFile
    
    Open "\fiche\mail_recipients.txt" For Input As i
    x = 0
    Do While Not EOF(i)
       Line Input #i, a$
       x = x + 1
       s(x) = a$
       
    Loop
    m = x
    If m = 0 Then
       GoTo bad_inputfile
    End If
    Exit Sub
bad_inputfile:
    MsgBox "Cannot send mail. MAIL_RECPIENTS.TXT has no adressees.", vbOKOnly
End Sub

[Nucleus]

If you want the app to be independent of outlook/exchange then use winsock and SMTP. Goto www.planetsourcecode.com, there are a few good examples in there.

[amitabh]

You can also look at the pop3 and SMTP articles on www.vbsquare.com and mailchecker sample application at www.vbip.com