Sending email

[ReidarT]

I have some code for sending email. The problem is, I need to send an email
to 3 persons and CC to 2 persons.
When I try to code (e-mail address removed);[email protected] I get an error.
I have tried this in vb6 and in vb.net with the Indy.dll but I cant figure
out how to do it.
regards
reidarT

 

[Herfried K. Wagner [MVP]]

I have some code for sending email. The problem is, I need to send an email
to 3 persons and CC to 2 persons.
When I try to code (e-mail address removed);[email protected] I get an error.
I have tried this in vb6 and in vb.net with the Indy.dll but I cant figure
out how to do it.

For Indy-related questions, take a look at these groups:

<URL:http://www.atozedsoftware.com/indy/Newsgroups.iwp>

 

[Ken Tucker [MVP]]

Hi,

Try this

butnSendMail.Enabled = False

Try

Dim LMsg As New Indy.Sockets.IndyMessage.Message

LMsg.From.Text = textFrom.Text.Trim()

LMsg.Recipients.Add().Text = "(e-mail address removed)"

LMsg.Recipients.Add().Text = "(e-mail address removed)"

LMsg.Recipients.Add().Text = "(e-mail address removed)"

LMsg.BccList.Add().Text = "(e-mail address removed)"

LMsg.BccList.Add().Text = "(e-mail address removed)"

LMsg.Subject = textSubject.Text.Trim()

LMsg.Body.Text = textMsg.Text

Dim LSMTP As New SMTP

AddHandler LSMTP.OnStatus, AddressOf SMTPStatus

LSMTP.Host = "sendmail.yoursever.com"

LSMTP.Username = "yourusername"

LSMTP.Password = "yourpassword"

LSMTP.Connect()

Try

LSMTP.Send(LMsg)

Status("Completed")

Finally

LSMTP.Disconnect()

End Try

Finally

butnSendMail.Enabled = True

End Try





Ken

-----------------------------------

I have some code for sending email. The problem is, I need to send an email
to 3 persons and CC to 2 persons.
When I try to code (e-mail address removed);[email protected] I get an error.
I have tried this in vb6 and in vb.net with the Indy.dll but I cant figure
out how to do it.
regards
reidarT