Probleme envois mail depuis un userform
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:
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 |
