Accueil > > > CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
Information sur la source
Description
CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005 modification du code original de microsoft publié : http://www.vbfrance.com/codes/CONTROLER-OUTLOOK-EN VOYER-MAIL-DEPUIS-VB_320.aspx
Source
- '
- ' MadeIn@CEREAL
- ' Fonction d'envoi d'un mail avec Outlook 2003
- '
- ' Il faut avant d'utiliser ajouter la référence à Outlook dans les références COM
- ' Microsoft Office 11 Object Library
- ' Importer le Namespace
- ' Imports Outlook = Microsoft.Office.Interop.Outlook
- '
- ' Utilisation de la fonction :
- ' Function CreateMail(ByVal astrRecip As String, ByVal strSubject As String, ByVal strMessage As String, Optional ByVal astrAttachments As String = "") As Boolean
- '
- ' ByVal astrRecip As String
- ' Liste des destinataires séparés par des points virgules ;
- '
- ' ByVal strSubject As String
- ' Sujet du message
- '
- 'ByVal strMessage As String
- ' Corps du message
- '
- 'Optional ByVal astrAttachments As String
- ' Liste des fichiers attachés séparés par des points virgules ;
- '
- ' Exemple :
- ' CreateMail("dest1@test.com;dest2@test.int", "Sujet du message", "Corps du message à envoyer", "monfichier1.zip;monfichier2.doc")
- '
- ' Adaptation du code exemple http://www.vbfrance.com/codes/CONTROLER-OUTLOOK-ENVOYER-MAIL-DEPUIS-VB_320.aspx mais pour qu'il fonctionne avec du .NET
- '
- Imports Outlook = Microsoft.Office.Interop.Outlook
- Module SendOutlookMail
- Function CreateMail(ByVal astrRecip As String, ByVal strSubject As String, ByVal strMessage As String, Optional ByVal astrAttachments As String = "") As Boolean
-
- Dim olApp As Outlook.Application
- Dim objNewMail As Outlook.MailItem
- Dim varRecip As Object
- Dim varAttach As Object
- Dim blnResolveSuccess As Boolean
- Dim sRceipList() As String
- Dim sAttachments() As String
-
- olApp = New Outlook.Application
- objNewMail = olApp.CreateItem(Outlook.OlItemType.olMailItem)
-
- 'Crée un tableau avec la liste des expéditeurs
- sRceipList = Split(astrRecip, ";")
- sAttachments = Split(astrAttachments, ";")
- With objNewMail
- ' Add each item in the varRecip array to the Recipients collection.
- For Each varRecip In sRceipList
- .Recipients.Add(varRecip)
- Next varRecip
-
- ' Determine if all recipients have corresponding entries in the
- ' Outlook address book.
- blnResolveSuccess = .Recipients.ResolveAll
-
- ' Add each item in the varAttach array to the Attachments collection
- ' and specify the subject and text of the mail message.
- For Each varAttach In sAttachments
- .Attachments.Add(varAttach)
- Next varAttach
- .Subject = strSubject
- .Body = strMessage
-
- ' If all recipients are valid then send the message now, otherwise
- ' display the message so the user can fix invalid e-mail addresses.
- If blnResolveSuccess Then
- .Send()
- '
- '.Display()
- Else
- MsgBox("Unable to resolve all recipients. Please check " & "the names.")
- .Display()
- End If
- End With
-
- Return True
- End Function
-
-
- End Module
'
' MadeIn@CEREAL
' Fonction d'envoi d'un mail avec Outlook 2003
'
' Il faut avant d'utiliser ajouter la référence à Outlook dans les références COM
' Microsoft Office 11 Object Library
' Importer le Namespace
' Imports Outlook = Microsoft.Office.Interop.Outlook
'
' Utilisation de la fonction :
' Function CreateMail(ByVal astrRecip As String, ByVal strSubject As String, ByVal strMessage As String, Optional ByVal astrAttachments As String = "") As Boolean
'
' ByVal astrRecip As String
' Liste des destinataires séparés par des points virgules ;
'
' ByVal strSubject As String
' Sujet du message
'
'ByVal strMessage As String
' Corps du message
'
'Optional ByVal astrAttachments As String
' Liste des fichiers attachés séparés par des points virgules ;
'
' Exemple :
' CreateMail("dest1@test.com;dest2@test.int", "Sujet du message", "Corps du message à envoyer", "monfichier1.zip;monfichier2.doc")
'
' Adaptation du code exemple http://www.vbfrance.com/codes/CONTROLER-OUTLOOK-ENVOYER-MAIL-DEPUIS-VB_320.aspx mais pour qu'il fonctionne avec du .NET
'
Imports Outlook = Microsoft.Office.Interop.Outlook
Module SendOutlookMail
Function CreateMail(ByVal astrRecip As String, ByVal strSubject As String, ByVal strMessage As String, Optional ByVal astrAttachments As String = "") As Boolean
Dim olApp As Outlook.Application
Dim objNewMail As Outlook.MailItem
Dim varRecip As Object
Dim varAttach As Object
Dim blnResolveSuccess As Boolean
Dim sRceipList() As String
Dim sAttachments() As String
olApp = New Outlook.Application
objNewMail = olApp.CreateItem(Outlook.OlItemType.olMailItem)
'Crée un tableau avec la liste des expéditeurs
sRceipList = Split(astrRecip, ";")
sAttachments = Split(astrAttachments, ";")
With objNewMail
' Add each item in the varRecip array to the Recipients collection.
For Each varRecip In sRceipList
.Recipients.Add(varRecip)
Next varRecip
' Determine if all recipients have corresponding entries in the
' Outlook address book.
blnResolveSuccess = .Recipients.ResolveAll
' Add each item in the varAttach array to the Attachments collection
' and specify the subject and text of the mail message.
For Each varAttach In sAttachments
.Attachments.Add(varAttach)
Next varAttach
.Subject = strSubject
.Body = strMessage
' If all recipients are valid then send the message now, otherwise
' display the message so the user can fix invalid e-mail addresses.
If blnResolveSuccess Then
.Send()
'
'.Display()
Else
MsgBox("Unable to resolve all recipients. Please check " & "the names.")
.Display()
End If
End With
Return True
End Function
End Module
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Lire un mail (direct OR outlook) [ par Kerad ]
*** INTRO ****Cette question peut être stupide voir banale mais je n'ai jamais touché à la prog internet (sauf sous Delphi) = je n'y connais rien et d
Envoyer un mail sans Winsock ni Outlook ! [ par Jonef ]
Bonjour à tous !Voilà, en fait je souhaite faire un programme qui envois des e-mails, le problème c'est que Winsock ne marche pas donc pas possible d'
Mail anonyme [ par Apophis ]
slt,Comment faire pour envoyer un mail de manière autonome de préférence (sans outlook) ou l'on peut mettre le nom que l'on veut? (le code présent sur
Envoie de mail avec outlook express via vb [ par fredo ]
J'aimerai pouvoir appelle outlook express via vb et avoir la fenêtre d'envoye d'un nouveau message ouvert de oulook express et dans cette fenêtre y fi
e-mail avec VB6 par outlook [ par Wallole ]
Je voudrais savoir comment faire pour envoyer un mail avec une pièce jointe en se servant de outlook, le tout dans un programme VB6. Je ne cherche p
Petit souci automation outlook [ par seb_d_angers ]
Un petit souci en automation Outlook (reference Microsoft Outlook 9)Private Sub Command1_Click()Set myolapp = CreateObject("Outlook.Application")Set m
Pb de Recup et lecture de Mail avec outlook [ par MOULE ]
HI,Voila, je voudrais, sur l'arrivée d'un Mail, et avec outlook (2000), récupérer le corps de ce mail sous forme de chaine de caracteres et le placer
Recuperer avec MAPI, un Mail non lu, placé dans sous dossier d'outlook!!!!!!!!! [ par MOULE ]
de l'aide:Je veux recuperer les mails non lus qui arrive dans un sous dossier de ma boite de reception d'outlook (2000). et cela avec le controle Mapi
Création d'un mail Outlook à compléter depuis Access [ par isa911 ]
Bonjour, J'ai crée une fonction qui me permet d'intégrer dans un nouveau mail en pièce jointe un document sélectionné. Je ne voudrais pas qu'il parte
envoi de mail sns outlook !!! [ par coco ]
Bojour,quelqu'un saurait-il comment je peux envoyer un mail sans passer par outlook ?MERCI
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
VB.NET ET COMBOBOXVB.NET ET COMBOBOX par minouthebreaker
Cliquez pour lire la suite par minouthebreaker
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|