.Net Envoi message

zavier666 Messages postés 266 Date d'inscription mardi 7 septembre 2004 Statut Membre Dernière intervention 30 avril 2009 - 7 juin 2007 à 20:04
cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 - 8 juin 2007 à 09:41
bonjour,

j'utilise la classe Mail pour expédier des messages.


hors en faisant des tests, je me suis aperçu qu'il faut que j'arrête mon programme pour que l'envoi soit effectif.

y'a-t-il moyen de déclencher la synchronisation avant:


voici le code:

Option Explicit Off


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim corps As String

        corps = "message"

        sendmail("", "", "titre", corps, "", "smtp.free.fr", False)
End Sub


Public Function sendmail(ByVal Mfrom As String, ByVal Mto As String,
ByVal Msubject As String, ByVal Mbody As String, ByVal Mcc As String,
ByVal smtpsrv As String, ByVal ishtml As Boolean, Optional ByVal login
As String "", Optional ByVal pass As String "", Optional ByVal
attachedfile As String = "") As String

        Try


            Dim liste As New Net.Mail.MailAddressCollection

            For i = 1 To 3

                liste.Add("dest@free.fr")

            Next


            attachfile = ("c:\img.bmp")


            Dim DotNetMail As New Net.Mail.MailMessage()

            DotNetMail.From = liste.Item(1)

            For i = 1 To 3

                DotNetMail.To.Add("dest@free.fr")

            Next

            With DotNetMail

                .Subject = Msubject

                .Body = Mbody

                .IsBodyHtml = ishtml


                If attachedfile <> "" Then

                   
.Attachments.Add(New Net.Mail.Attachment(attachedfile))

                End If

            End With

            Dim
SmtpMail As Net.Mail.SmtpClient = New Net.Mail.SmtpClient(smtpsrv)

            If
(login <> "" And pass <> "") Then SmtpMail.Credentials =
New System.Net.NetworkCredential(login, pass)

            SmtpMail.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network

            SmtpMail.Send(DotNetMail)

            SmtpMail = Nothing

            Return "Mail envoyé avec succés"

        Catch err As Exception

            MsgBox("Erreur: " + err.Message)

           
Return "Erreur lors de l'envoie du message : " & err.Message

        End Try

    End Function

End Class

1 réponse

cs_drahcir Messages postés 745 Date d'inscription mardi 30 novembre 2004 Statut Membre Dernière intervention 15 septembre 2009 4
8 juin 2007 à 09:41
Salut,

j'ai fait le même constat que toi et je n'ai pas trouvé pourquoi (j'ai sûrement pas cherché suffisamment)....

donc si tu trouve comment faire, je suis preneur!!!

<hr />
@+  
0