1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Création d'un mail à partir d'excel en utilisant microsoft outlook avec pièces jointes

Création d'un mail à partir d'excel en utilisant microsoft outlook avec pièces jointes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 028 fois - Téléchargée 42 fois

Commenter

Contenu du snippet

Fonctionne en version 2000

Source / Exemple : 


Sub Envoi_Mail()
    Dim App As Outlook.Application
    Dim Message, Pieces As Variant
    Dim Colonne As Integer
    Dim Fichier As String
    
    'Création du message
    Application.StatusBar = "Création d'un message Outlook ..."
    Set App = CreateObject("outlook.application")
    Set Message = App.CreateItem(olMailItem)
    
    'Ajout des pièces jointes
    Application.StatusBar = "Ajout des pièces jointes au message Outlook ..."
    Set Pieces = Message.Attachments
    For Colonne = ColDebut To (ColDebut + NbCol - 1)
        If (Cells(LgDebut - 2, Colonne).Value) <> 0 Then
            Fichier = Cells(LgDebut - 1, Colonne).Value & ".csv"
            Pieces.Add Repertoire & Fichier, _
                    olByValue, 1, Fichier
        End If
    Next
    
    Application.StatusBar = "Affichage du message Outlook"
    Application.StatusBar = "Prêt"
    Message.Display
End Sub

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
92
Date d'inscription
lundi 16 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
 1
Au cas où quelqu'un se pose la même question que Tarteatin, la propriété qui permet d'avoir un corps de mail en HTML est Message.HTMLBody
Signaler
Messages postés
1
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
22 novembre 2006
Bonsoir,


Quelqu'un connait-il la proprieté à utiliser pour pouvoir écrire le corps du message en html?

Merci
Signaler
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015
Le composant ActiveX ne peut créer l'objet : Set App = CreateObject("outlook.application")
Signaler
Messages postés
21
Date d'inscription
jeudi 4 avril 2002
Statut
Membre
Dernière intervention
3 juin 2008
Bonjour,
Si le créateur avaitle fichier d'aide pour la prog vba outlook cela t'aiderait, moi je l'ai paumé. Tu trouveras des exemples qui pourront t'éclairer là-dessus sur mon sitehttp://xlbysteph.free.fr/aideinformatique/web.htm, je peux pas les coller là, j'ai pas accès à mon site ici.
bye
stephane
Signaler
Messages postés
43
Date d'inscription
mercredi 16 janvier 2002
Statut
Membre
Dernière intervention
29 février 2008
 3
C'est bien, mais comment on fait pour mettre automatiquement des objet, pièces jointes et corps du message ?

Il faut aussi dire qu'il faut ajouter la référence à MS Outlook 9.0 library dans le code VB
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.