GmailSender - Emails versturen

[ninjaplayer]

Ik heb een class geschreven waarmee je emails kunt versturen. Je hebt een gmail account nodig om het te kunnen gebruiken. Ook is het mogelijk bijlages mee te verzenden.

"Hoe gebruik ik dit?"
Toevoegen aan je project via het menu Project > Add Reference en selecteer de dll via het Browse tabblad.

Het versturen van een email gaat zo:

Dim attachmentdirectories As New Specialized.StringCollection
attachmentdirectories.Add(txtAttachment.Text)
Dim mail as new GmailSender.Email("gmailadres@gmail.com","gmailwachtwoord")
mail.Send("ontvanger@gmail.com", "Onderwerp", "Bericht", "Naamafzender", "emailadresafzender", attachmentdirectories)

Om een bijlage toe te voegen, moet je een specialized.stringcollection maken en het pad naar het bestand toevoegen. Als je het niet snapt, kan de code boven misschien helpen.

Je kunt ook Addhandler gebruiken om het mailsended event toe te wijzen, die wordt aangeroepen wanneer het klaar is met het versturen van de email:

Public Sub klaar()
msgbox("Email succesvol verstuurt") 'oid
End Sub

Public CreateGmail
Dim mail as gmailsender.email
Addhandler mail.MailSended, AddressOf klaar

O enne, als je een email naar een hotmail/live adres verstuurt, duurt het even voordat de mail aankomt. Bij gmail bijna meteen en de andere weet ik niet.
En als je het verstuurt, freezed je prog een aantal seconden, dus kun je beter een backgroundworker gebruiken.

 

[That Guy]

zomaar even: deze regel

Dim mail as GmailSender.Email("gmailadres@gmail.com","gmailwachtwoord"

mist een haakje

voor de rest wel interessant

 

[ninjaplayer]

Thx , had er even naar gekeken en nog een fout ontdekt