bonjour le forum
je rencontre un probleme pour envoyer un mail avec un fichier attaché
en effet je cree une copie d'un onglet et je l'enregistre dans le répertoire source de l'application ( qui se trouve sur un server) et jusque la tout va bien
ensuite lorsque la commande s'exécute pour envoyer la mail l'application se plante au niveau du " mon message.attachement......" avec une erreur 446
voici mon code
pouvez vous m'aider svp
merci d'avance
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 Sub EnvoisQuaker() répertoireAppli = ActiveWorkbook.Path Sheets("quaker").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs répertoireAppli & "\huile.xls" ActiveWindow.Close Dim MonOutlook As Object Dim monmessage As Object Dim corps As String 'Dim monmessage As MailItem Set MonOutlook = CreateObject("Outlook.Application") Set monmessage = MonOutlook.CreateItem(0) monmessage.To = "stephane.fischbach@arcelormittal.com" monmessage.Subject = "Confirmation de commande huile QUAKEROL N 611 DAM pour Tandem 4 C" corps = corps & UserForm1.Label255 & Chr(13) & Chr(10) corps = corps & Chr(13) & Chr(10) corps = corps & Chr(13) & Chr(10) corps = corps & UserForm1.Label256 & Chr(13) & Chr(10) corps = corps & Chr(13) & Chr(10) corps = corps & UserForm1.Label257 & Chr(13) & Chr(10) corps = corps & Chr(13) & Chr(10) monmessage.Body = corps monmessage.Attachments.Add Source:=répertoireAppli & "\huile.xls" monmessage.Send Set MonOutlook = Nothing End Sub
Partager