Sending mail through VB6

[squrel]

Hello All,

Is anybody knws how to send mail through VB6? Can u just give me some idea about it..
I am using VB6 and SQLServer 2000
Thanks in advance

[debasisdas]

You need to use MAPI controls.

[squrel]

wld u plz explain little bit more.. have no idea abt the MAPI control

[debasisdas]

Add MAPIMessages and MAPISession control to the form

Try using this sample code

[code=vb]
Private Sub Command2_Click( )
MAPISession1.Si gnOn
MAPIMessages1.S essionID = MAPISession1.Se ssionID
'Compose new message
MAPIMessages1.C ompose
'Address message
MAPIMessages1.R ecipDisplayName = "name"
MAPIMessages1.R ecipAddress = "name@mailserve r.com"
' Resolve recipient name
MAPIMessages1.A ddressResolveUI = True
MAPIMessages1.R esolveName
'Create the message
MAPIMessages1.M sgSubject = "Hi"
MAPIMessages1.M sgNoteText = "Test mail"
'Add attachment
MAPIMessages1.A ttachmentPathNa me = "Path of the file to attach"
'Send ethe message
MAPIMessages1.S end False
MAPISession1.Si gnOff
End Sub
[/code]

[squrel]

Ok.. I wil try tht... thank u very much