Bonjour à tous et toutes,
Il y a quelques temps, sur ce forum, j'ai récuperé une macro qui permettait d'envoyer automatiquement un fichier par mail.
Malheureusement, ce programme ne fonctionne pas. J'ai beau retourner le problème dans tous les sens, la macro me presente des d'erreurs d'executions comme par exemple : "erreur d'excution 438 : la propriété ou methode non gerée par cet objet.
Je precise que le fichier que je souhaiterais envoyer par mail comporte 4 onglets dont celui intitulé "destinataires" qui regroupe la liste des personnes recevant le fichier.
Je vous le fichier pour que vous aiez une idée.
Voici la macro :
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 Sub envoiemail() Dim MonOutlook As New Outlook.Application Dim MonMessage As Outlook.MailItem Dim Wbk As Workbook Dim ListeDest As Worksheet Dim MonFichier As String Dim i As Long Set Wbk = ThisWorkbook ChDir "P:\Commun\Intranet PFC SLM\transport\REMORQUES VRAC\Archives\2009\septembre" 'chemin pour l'enregistrement MonFichier = Range("A4").Value & "-" & Format([A2].Value, "dddd-mm-yyyy") Wbk.SaveCopyAs Filename:=MonFichier Set ListeDest = Wbk.Worksheet("destinataire") Set MonMessage = MonOutlook.CreateItem(olMailItem) With MonMessage .Subject = "Fiche liaisons depart" .Body = "Cordialement " .BodyFormat = olFormatHTML For i = 2 To ListeDest.Range("A65536").End(xlUp).Row .Recipients.Add (ListeDest.Range("A" & i).Value) Next i .Attachments.Add Wbk.Path & "P:\Commun\Intranet PFC SLM\transport\REMORQUES VRAC\Archives\2009\septembre" & Wbk.Name .Attachements.Add ActiveWorkbook.Path & "P:\Commun\Intranet PFC SLM\transport\REMORQUES VRAC\Archives\2009\septembre" & ActiveWorkbook.Name .Send End With MonOutlook.Quit Set MonOutlook = Nothing Set MonMessage = Nothing Set ListeDest = Nothing Set Wbk = Nothing End Sub
Partager