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

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

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.