none
Envoyer des mails avec un smtp sans mot de passe RRS feed

  • Question

  • Bonjour,

     

    J'utilise le code suivant pour envoyer des mails, mais je me retrouve confronté à un cas ou le serveur smtp n'a pas de mot de passe.

    Comment faire?

    Merci

     

     Dim envoyeur As MailAddress = New MailAddress(Mail)
        Dim receveur As MailAddress = New MailAddress(AdminMail)
        Dim mail As MailMessage = New MailMessage(envoyeur, receveur)
        Dim smtp As SmtpClient = New SmtpClient(SMTPHost)
        Dim Fichier As Attachment
    
        mail.Body = Message
    
        mail.Subject = Sujet
    
        mail.Priority = MailPriority.High
        mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnSuccess Or DeliveryNotificationOptions.OnFailure
    
        smtp.Port = SMTPPort
        smtp.Credentials = New Net.NetworkCredential(Mail, MailPass)
    
    
          smtp.Send(mail)

    lundi 21 juin 2010 18:33

Réponses

Toutes les réponses