How can I send automatic e-mails with VB6?

[toto_phl]

i tried the link that you provided...

but was not successfull in running the code, i've encountered an error stating:

"Run-time error '40006':
Wrong protocol or connection state for the requested transaction or request"

why is it like that?
but i can send email using OUTLOOK, using the same SMTP host name...

please help...

[tommygrayson]

Use Microsoft CDO. It will not prompt a messagebox if you are sending e-mails.

[toto_phl]

hey tommy,

can you spare some codes with it?

thanks

[tommygrayson]

hey tommy,

can you spare some codes with it?

thanks

Have you already included the Microsoft CDO Library in your Library?

If so then hmmm........

Let me seeee........

Dang. It has been a long time since I programmed with VB 6 that I almost forgot to use CDO in VB6.

Anyway, click on this link

[toto_phl]

i already added CDO in the reference...

got the source code from the link you provided...

but the part where it states the:

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""

it said that it should use the IP address, i dunno the IP. i only know the host name...

is it the same?

[ccoder]

i tried the link that you provided...

but was not successfull in running the code, i've encountered an error stating:

"Run-time error '40006':
Wrong protocol or connection state for the requested transaction or request"

why is it like that?
but i can send email using OUTLOOK, using the same SMTP host name...

please help...

I can't help you until I get some more information.

Did you make any changes other than filling in the 3 pieces of information that the program needs? These would be in the lines:

  sckMail.RemoteHost = "smtp server address goes here"  ' supply server address

  addyList = "address1@domain1;address1@domain2"        ' supply address list (1 or more)

            sckMail.SendData "MAIL FROM:<sender@domain>" & vbCrLf  ' supply sender@domain

Where in the code is the error occurring? What have you done up to that point?