Contrôler outlook (1) - envoyer un mail depuis vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 52 116 fois - Téléchargée 81 fois

Commenter

Contenu du snippet

voici un code, fourni par microsoft, qui vous permet d'envoyer un mail par l'intermédiaire d'outlook depuis votre appli.

n'oubliez pas d'ajouter une référence à outlook dans votre appli.

Source / Exemple : 


Function CreateMail(astrRecip As Variant, _
                   strSubject As String, _
                   strMessage As String, _
                   Optional astrAttachments As Variant) As Boolean

   Dim olApp                 As Outlook.Application
   Dim objNewMail            As Outlook.MailItem
   Dim varRecip              As Variant
   Dim varAttach             As Variant
   Dim blnResolveSuccess     As Boolean

   On Error GoTo CreateMail_Err

   Set olApp = New Outlook.Application
   Set objNewMail = olApp.CreateItem(olMailItem)

   With objNewMail
   ' Add each item in the varRecip array to the Recipients collection.
      For Each varRecip In astrRecip
         .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 astrAttachments
          .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
      Else
         MsgBox "Unable to resolve all recipients. Please check " _
             & "the names."
         .Display
      End If
   End With

   CreateMail = True

CreateMail_End:
   Exit Function
CreateMail_Err:
   CreateMail = False
   Resume CreateMail_End
End Function

Conclusion :


la propriété astrrecip désigne le nom du recipient (destinataire) INSCRIT dans le carnet d'adresse outlook.
je vais bientot ajouter une source pour montrer comment manipuler le carnet d'adresse outlook

A voir également

Ajouter un commentaire

Commentaires

Signaler
erokage
Messages postés
91
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
23 juin 2009
et si on est sous vb 2008 et outlook 2007 comment fait on?
Signaler
didyman
Messages postés
86
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
8 novembre 2007
J'aimerais savoir comment utiliser la propriété .from s'il y en a une svp car sa pas l'aire de fonctionner chez moi!
Signaler
cs_FloSch
Messages postés
5
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
15 février 2013
Bonjour,

Pour éviter le message de sécurité Outlook, le seul moyen que j'ai trouvé est d'installer l'utilitaire suivant : ClickYes (http://www.contextmagic.com/downloads.htm) et le tour est joué.

Cordialement
Signaler
christian_grandjean
Messages postés
30
Date d'inscription
dimanche 7 novembre 2004
Statut
Membre
Dernière intervention
19 novembre 2013
 2
Code adapté pour du VB.NET ici :
http://www.vbfrance.com/code.aspx?ID=43130
Signaler
cs_comme
Messages postés
122
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
18 juillet 2009
Très bonne source ,tout marche bien , la boite de dialogue pour répondre oui ou non apparait tjrs je répond oui,j'envoie à mon addresse, avec un fichier attaché et après je consulte ma boite de reception pour la trouver vide ... avez vous une explication? merci
Afficher les 19 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_painkiller)