Can any one tell me about the SMTP setting to send email by VB6 program in WindowsXP environment?

Question

Hell
I have a program which require to send email from by VB6 coding using SMTP.
But I dont know about the setting of SMTP. I have WindowsXP with IIS intstalled.
Or tell me a simple way by which I can create a Smail program by VB6 and its requirement.

I have also tried to send email by MS-Outlook it also giving error due to SMTP

Answer 1

use the function given below

Dim ObjMail As CDO.Message
Set ObjMail = CreateObject("CDO.Message")
ObjMail .Configuration.Fields(cdoSMTPServer) ="SMTPServer Name"
ObjMail .Configuration.Fields.Update
ObjMail .To = "xyz.com"
ObjMail .From = "abc.com"
ObjMail .Subject = "test"
ObjMail .TextBody = "Hello."
ObjMail .AddAttachment ("temp.txt")
ObjMail .Send
Set ObjMail = Nothing

Answer 2

Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = "[e-mail]
.Cc = "[e-mail]"
.Subject = "Hello World (one more time)..."
.Body = "This is the body of message"
.HTMLBody = "HTML version of message"
.Attachments.Add ("c:\myFileToSend.txt")
.Send 'Let´s go!
End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing


tats it u r done...