Via CDO en cochant sous VBE Outils|Références Microsoft CDO for Exchange xxxx Library
A adapter à ton contexte,ici envoi de fichier Pdf
Ou sans rien cocher
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Envoi_CDO1() Dim CdoMessage As CDO.Message Dim Fichier As Variant ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut" Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf") If Fichier = False Then Exit Sub Set CdoMessage = New CDO.Message With CdoMessage .Subject = "Exemple" .From = "xxxxx@wanadoo.fr" .To = "yyyyy@orange.fr" .CC = "" .BCC = "" .TextBody = "Texte dans le corps de message" .AddAttachment Fichier .Send End With Set CdoMessage = Nothing End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Envoi_CDO2() Dim CdoMessage As Object Dim Fichier As Variant ChDir "C:\Documents and Settings\UserName\Mes documents\PdfOut" Fichier = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf") If Fichier = False Then Exit Sub Set CdoMessage = CreateObject("CDO.Message") With CdoMessage .Subject = "Exemple" .From = "xxxxx@wanadoo.fr" .To = "yyyyy@orange.fr" .CC = "" .BCC = "" .TextBody = "Texte dans le corps de message" .AddAttachment Fichier .Send End With Set CdoMessage = Nothing End Sub
Partager