envoie mail+enregistrer Pdf

[batistuta]

Bonjour j'ai une macro en vba qui marche très bien sur mon pc personnel...par contre je n'arrive pas à le fare fonctionner au boulot...je ne sais pas pourkoi.
Merci de m'aider.
Voila le code.


Sub SendMail_Outlook()


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\A-youssef\Desktop\commandes\" & Range("D4") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True



'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String


Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = Range("D2").Value
.CC = Range("D3").Value
.Subject = "Bon de Livraison"
.Attachments.Add "C:\Users\A-youssef\Desktop\commandes\" & Range("D4") & ".pdf"

.Body = "Bonjour Monsieur"
.Display


End With
End Sub

 

[JNP]

Re : envoie mail+enregistrer Pdf

Bonjour Batistuta et bienvenue 🙂,
Vu que tu as bien noté la référence à activer, je pense que tu l'as fait 😛.
Par contre, au boulot, ils n'ont peut-être pas téléchargé le complément pour faire du PDF sous 2007.
Tu le trouveras ICI.
Bonne journée 😎

 

[kiki29]

Re : envoie mail+enregistrer Pdf

Salut, n'utilisant pas Outlook je ne peux que te renvoyer vers Create and Mail PDF files with Excel 2007/2010
Néanmoins il y a peut-être des droits d'administration que tu ne possèdes pas ?
Sans indication du message d'erreur difficile de diagnostiquer qqch

 

[batistuta]

Re : envoie mail+enregistrer Pdf

Mercie de m'avoir répondu,
La conversion au pdf marche très bien,
c'est l'envoie par outlook qui bloque.
Consenant les droits , jai tous les droits.Il n y a pas de message d'erreur, c'est juste que la fenêtre s'ouvre, clignotte un peu et après elle se ferme.
Merci

 

[kiki29]

Re : envoie mail+enregistrer Pdf

Salut, et si tu remplaçais .Display par .Send

 

[JNP]

Re : envoie mail+enregistrer Pdf

Re 🙂,
Est-ce que ce sont bien les mêmes OS, la même version d'Office, les mêmes niveaux de SP (OS et Office) ?
As-tu essayé avec un chemin relatif au lieu d'un chemin absolu ?

'...
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("D4") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
'...
.Attachments.Add ThisWorkbook.Path & "\" & Range("D4") & ".pdf"
'...

Bon dimanche 😎

 

[batistuta]

Re : envoie mail+enregistrer Pdf

je vais essayer demain et je vous tiens au courant.
à bientôt.
merci

 

[batistuta]

Re : envoie mail+enregistrer Pdf

il fallai juste ke j'enleve send.
merci lé ga cété tou con