Envoye de message avec pièces jointes depuis excel

Commenter

Contenu du snippet

Ce petit morceau de code permet l'envoi automatique de mails à un ou plusieurs destinataires avec des pièces jointes.
Il faut toutefois télecharger un freeware (CLICKYES)([URL]http://www.contextmagic.com/express-clickyes//URL) afin de pouvoir contourner le message de sécurité de outlook 2002.

Si toutefois vous trouvez mieux faites moi signe..

Bonne lecture, en espérant que cela dépanne de petits utilisateurs comme moi

Source / Exemple : 


'Déclaration des functions API
Private Declare Function RegisterWindowMessage _
        Lib "user32" Alias "RegisterWindowMessageA" _
        (ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As Any, _
        ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

'Fonction qui se déclenche lors d un clic sur un bouton de commande.

Private Sub CommandButton1_Click()
'Déclaration des variables.
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

'Enregistrez un message pour envoyer
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

'Recherche et activation de la CLICKYES
wnd = FindWindow("EXCLICKYES_WND", 0&)

'Mise en service de CLICKYES
Res = SendMessage(wnd, uClickYes, 1, 0)

'Déclaration des objets de la messagerie
Set mailobj = CreateObject("Outlook.Application")
Set Mail = mailobj.CreateItem(olMailItem)
   
'On prépare l'envoi de Mail
        With Mail
            .SentOnBehalfOfName = SentOnName
            'Mettre ici le ou les destinataires ("nom.prenom@FAI.com; nom1.prenom1@FAI.com)
            .To = "nom.prenom@FAI.com" 
            'Sujet du message
            .Subject = "Mail automatique"
            'Corps de texte du message(contenu)
            .Body = "test"
            'Penser à créer un fichier test.txt dans le DD sous C:\
            .Attachments.Add ("C:\test.txt")
            .display
            .Send
            End With

' Mise au repos de CLICKYES
Res = SendMessage(wnd, uClickYes, 0, 0)

End Sub

Conclusion :


Il faut au préalable installer CLICKYES et dans une feuille Excel, créer un bouton.
N'oublier pas de créer un fichier "test" pour la pièce jointe.
    • Merci de penser à noter ma source **

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.