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

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
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
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
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.ReflectionModule 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 SubEnd 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.
envoyer des messages répertoire SMTP local CDOSYS

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 313773 - Dernière mise à jour : 12/07/2015 08:15:39 - Révision : 3.2

Microsoft Visual Basic .NET 2003 Initiation, Microsoft Visual Basic .NET 2002 Initiation, Microsoft Collaboration Data Objects 2.0

  • kbnosurvey kbarchive kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtfr
Commentaires