Mailprogramma zelf gemaakt

[bonnowagt]

Ik heb een mailprogramma gemaakt en gekoppeld aan een listview enz.

Mijn vraag is de volgende:
1.Hoe krijg ik meerdere emailadressen dus om het bericht naar meerdere personen te zenden:
2. Hetzelfde maar dan meerdere attachments te zenden in 1 keer

Mijn code is:

  objemail = CreateObject("CDO.Message")
            objemail.From = TextBox1.Text
           

 objemail.To = TextBox2.Text [COLOR="red"]'DEZE DUS[/COLOR]
            objemail.Subject = TextBox3.Text
            objemail.Textbody = TextBox4.Text
            objemail.Configuration.Fields.Item _
             ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            objemail.Configuration.Fields.Item _
             ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            "mailhost.hetnet.nl"
            objemail.Configuration.Fields.Item _
             ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            objemail.Configuration.Fields.Update()
            objemail.AddAttachment(TextBox5.Text) [COLOR="red"]'DEZE DUS[/COLOR]            objemail.Send()_

 

[JoZ1]

Voor vraag 2 zou dit misschien werken:

[CPP]objemail.Attachment.Add( New Attachment(TextBox5.Text))
objemail.Attachment.Add(New Attachment(TextBox6.Text))
objemail.Attachment.Add(New Attachment(TextBox7.Text))[/CPP]

 

[bonnowagt]

Op zich is dat een oplossing maar zo moet je dus als je drie afzenders hebt , drie textboxen maken enz. en dat is eigenlijk niet de bedoeling

 

[JoZ1]

Probeer het eens zo:

[CPP]Dim message As New MailMessage()
message.From = New MailAddress("van@gmail.com")
message.To.Add("b.gates@microsoft.com")
message.Subject = "Onderwerp"
message.Body = "Bericht"

Dim smtp As New SmtpClient("smtp.gmail.com")
smpt.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("van@gmail.com", "wachtwoord")
smtp.Send(message)[/CPP]

Dan kun je zo meerdere attachments toevoegen:


[CPP]objemail.Attachment.Add( New Attachment(TextBox5.Text))
objemail.Attachment.Add(New Attachment(TextBox6.Text))
objemail.Attachment.Add(New Attachment(TextBox7.Text))[/CPP]

En zo meerdere geadresseerden:

[CPP]message.To.Add("test@gmail.com")
message.To.Add("jan@hotmail.com")[/CPP]