Bonjour à tous,
Je débute dans l'utilisation de VBA depuis quelques jours et je m'en sort pas trop mal
notamment grâce à votre site et je vous en remercie.
J'ai pu créer ma macro dans excel qui retravail un fichier de données,
crée plusieurs nouveaux fichiers et les joints un mail enregistré en brouillon dans outlook.
Jusqu'ici pas de souci
J'aimerai pouvoir programmer dans ma macro le dossier dans lequel sera enregistré le mail après son envoie
Et je n'ai aucune idée sur comment faire.
Merci de votre aide
Ci-dessous une copie du code VBA pour l'envoie du mail
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51 strbody = "Bonjour,<br>" & _ "<br>" & _ "Sauf erreur de notre part, nous nous permettons de vous signaler que nous n'avons pas reçu,<br>" & _ "à ce jour, le règlement de nos factures dont nous vous donnons le détail ci-joint.<br>" & _ "<br>" & _ "Nous attendons un règlement dans les plus brefs délais<br>" & _ "S'il y a des litiges, ou tout autre raison d'un retard de paiement, merci de nous en faire part.<br>" & _ "<br>" & _ "Bien cordialement<br>" & _ "<br>" & _ "-------------------------------------------------------------------------------------------------------------------<br>" & _ "<br>" & _ "Dear Sirs<br>" & _ "<br>" & _ "Please see below your account statement.<br>" & _ "We would appreciate prompt payment of this balance.<br>" & _ "<br>" & _ "If you have any questions relating to this balance please do not hesitate to contact us.<br>" & _ "And if there is any litigation on our invoice or any problem please let us know.<br>" & _ "<br>" & _ "Yours faithfully.<br>" & _ "<br>" SigString = Environ("appdata") & _ "\Microsoft\Signatures\Signature normale.htm" If Dir(SigString) <> "" Then Signature = GetBoiler(SigString) End If If ChoixMail = "VRAI" _ Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Destinataire .CC = CopieDestinataire .BCC = "" .Subject = "REMINDER_" & Range("E19") & "_" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) .HTMLBody = strbody & "<br>" & Signature .Attachments.Add ActiveWorkbook.FullName .Save End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If
Partager