Progress bar pendant envoi de mail

Signaler
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Statut
Membre
Dernière intervention
9 juin 2010
-
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Statut
Membre
Dernière intervention
9 juin 2010
-
Bonjour

Voilà j'ai un code qui me permet d'envoyer un mail avec pièce jointe mais plus la pièce jointe est lourde, plus le message est long à envoyer. J'aimerais afficher une progress bar qui s'incrémente le temps que le mail s'envoie mais je ne sais pas comment faire.

Pourriez-vous m'aider svp ?

Merci

2 réponses

Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
3
salut
tu utilise quoi pour envoyer le mail ?
peut tu nous montré ton code stp ?



Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie
Messages postés
43
Date d'inscription
jeudi 18 octobre 2007
Statut
Membre
Dernière intervention
9 juin 2010

Bonjour

Voici mon code :
Try
   body = Me.txtSujet.Text.ToString
   If NomPieceJointe <> "" Then
      mail = New MailMessage(Me.txtFrom.Text.ToString, Me.txtTo.Text.ToString)
      mail.Subject = Me.txtObjet.Text.ToString
      mail.Body = body
      at = New Attachment(NomPieceJointe)
      mail.Attachments.Add(at)
      mail.IsBodyHtml = True
      smtp = New SmtpClient("smtp.orange.fr")  'je choisis le serveur smtp.orange.fr
      smtp.Send(mail)
      MsgBox("Message envoyé le " & (Format(My.Computer.Clock.LocalTime, "dd/mm/yyyy")) & " à " & System.DateTime.Now.TimeOfDay.ToString.Substring(0, 8), MsgBoxStyle.Information)
   Else
      MsgBox("Veuillez sélectionner une pièce jointe ! ", MsgBoxStyle.Critical, "ERREUR")
   End If
Catch ex As Exception
   MsgBox(ex.Message)
End Try


J'aimerais afficher une progress bar pendant le smtp.send(mail)