Comment envoyer des messages électroniques en utilisant CDOSYS et le répertoire SMTP local avec Visual Basic .NET

Traductions disponibles Traductions disponibles
Numéro d'article: 313773 - 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 Microsoft Windows 2000 bibliothèque et le répertoire local SMTP pour envoyer un message électronique HTML à l'aide de Microsoft Visual Basic .NET. Vous devez exécuter cet exemple sur un serveur qui a un service SMTP à envoyer le message électronique.

Plus d'informations

  1. Démarrez Microsoft Visual Studio .NET.
  2. Dans le menu Fichier , pointez sur Nouveau , puis cliquez sur projet .
  3. Sous types de projets , cliquez sur projets Visual Basic .
  4. Sous modèles , cliquez sur application console , puis cliquez sur OK .

    Par défaut, Module1.vb est créé.
  5. Ajouter une référence à Microsoft CDO pour Windows 2000 bibliothèque. Pour ce faire, procédez comme suit :
    1. Dans le menu projet , cliquez sur Ajouter une référence .
    2. Sous l'onglet COM , cliquez sur CDO pour Windows 2000 bibliothèque Microsoft , puis cliquez sur Sélectionner .
    3. Dans la boîte de dialogue Ajouter une référence , cliquez sur OK pour accepter vos sélections. Si vous recevez une invite pour générer des wrappers pour les bibliothèques que vous avez sélectionné, cliquez sur Oui .
  6. Suivez les étapes 5 a via 5c pour ajouter une référence à la bibliothèque Microsoft ActiveX Data Objects 2.5.
  7. Dans la fenêtre de code, remplacez tout le code avec :
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. Rechercher « TODO » dans le code et ensuite modifier le code pour votre environnement.
  9. Appuyez sur F5 pour générer et exécuter le programme.
  10. Vérifiez que le message électronique a été envoyé et reçu.

Propriétés

Numéro d'article: 313773 - 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 Visual Basic .NET 2003 Initiation
  • Microsoft Visual Basic .NET 2002 Initiation
  • Microsoft Collaboration Data Objects 2.0
Mots-clés : 
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 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: 313773
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