Comment faire pour utiliser la bibliothèque CDOSYS pour envoyer un message électronique en utilisant le port SMTP dans Visual Basic .NET

Traductions disponibles Traductions disponibles
Numéro d'article: 313775 - Voir les produits auxquels s'applique cet article
Avertissement ADO et ADO MD n'ont pas été complètement testées dans un environnement Microsoft .NET Framework. Ils peuvent entraîner des problèmes intermittents, en particulier dans les applications basée sur des services ou dans les applications multithreads. Les techniques décrits dans cet article doivent être utilisés uniquement comme mesure temporaire pendant la migration vers ADO.NET. Vous devez uniquement utiliser ces techniques une fois que vous avez effectué test complet pour vous assurer qu'il sont sans problèmes de compatibilité. Les problèmes provoqués par utilisant ADO ou ADO MD dans cette manière sont non pris en charge. Pour plus d'informations, consultez l'article suivant dans la Base de connaissances :
840667 Vous recevez des erreurs inattendues lorsque utilisez ADO et ADO MD dans une application .NET Framework
Agrandir tout | Réduire tout

Résumé

Cet article explique comment utiliser la Collaboration Data Objects (CDO) pour Windows 2000 (CDOSYS) Library pour envoyer un message électronique en utilisant le port SMTP (Simple Mail Transfer Protocol) dans Microsoft Visual Basic .NET.

Plus d'informations

Pour envoyer un message électronique en utilisant le port SMTP, procédez comme suit :
  1. Démarrez Microsoft Visual Studio .NET.
  2. Dans le menu Fichier , pointez sur Nouveau , puis cliquez sur projet .
  3. Dans la liste types de projets Visual Basic , cliquez sur application console .

    Par défaut, le fichier Module1.vb est créé.
  4. Ajouter une référence à la bibliothèque Microsoft CDO pour Windows 2000 Library. Pour ce faire, procédez comme suit :
    1. Dans le menu projet , cliquez sur Ajouter une référence .
    2. Cliquez sur l'onglet COM , recherchez CDO pour Windows 2000 bibliothèque Microsoft et puis cliquez sur Sélectionner .
    3. Dans la boîte de dialogue Ajouter une référence , cliquez sur OK .
    4. Si vous êtes invité à générer des wrappers pour les bibliothèques que vous avez sélectionné, cliquez sur Oui .
  5. Répétez l'étape 4 pour ajouter une référence à la Microsoft ActiveX Data Objects 2.5 Library.
  6. Dans la fenêtre de code, remplacez le code avec des opérations suivantes :
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. Recherchez TODO dans le code et ensuite modifier le code pour votre environnement.
  8. Appuyez sur F5 pour générer et exécuter le programme.
  9. Assurez-vous que le message électronique a été envoyé et reçu.

Propriétés

Numéro d'article: 313775 - Dernière mise à jour: jeudi 29 novembre 2007 - Version: 3.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Collaboration Data Objects 2.0
  • Microsoft Visual Basic .NET 2003 Initiation
  • Microsoft Visual Basic .NET 2002 Initiation
Mots-clés : 
kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 313775
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com