Lisette
XLDnaute Junior
Bonjour à tous,
déjà, j'aimerais vous dire que je cherche la solution sur le net depuis 2 jours et que, même si de nombreux forums en parlent, je n'ai toujours pas réussi à mettre en application.
Voilà le sujet.
J'ai un Fichier Central qui regroupe toutes mes infos concernant des accidents.
De ce fichier, je génère par macro un fichier excel par accident, au coup par coup. Que j'appellerai Fichier Généré.
De ce Fichier Généré, je voudrais lancer une macro permettant d'envoyer une copie pdf de ce fichier par Outlook. Cette macro-ci, je l'ai, elle fonctionne, pas de problème.
Par contre.
Il faut, pour que ma fonction "envoi de mail" fonctionne, activer la référence "Microsoft Outlook 15.0 Object Library"
Je peux activer cette référence dans mon Ficher Central, mais ce faisant, ça ne l'active pas dans mon Fichier Généré.
Je souhaitais donc, dans ma macro "envoi de mail" forcer cette activation.
J'ai donc noté le code suivant :
Et, comme vous l'imaginez [vu que je post ici] ça ne roudjouijoui fonctionne pas XD
Pourriez-vous m'aider s'il vous plaît ?
Bonne journée,
Lisette
déjà, j'aimerais vous dire que je cherche la solution sur le net depuis 2 jours et que, même si de nombreux forums en parlent, je n'ai toujours pas réussi à mettre en application.
Voilà le sujet.
J'ai un Fichier Central qui regroupe toutes mes infos concernant des accidents.
De ce fichier, je génère par macro un fichier excel par accident, au coup par coup. Que j'appellerai Fichier Généré.
De ce Fichier Généré, je voudrais lancer une macro permettant d'envoyer une copie pdf de ce fichier par Outlook. Cette macro-ci, je l'ai, elle fonctionne, pas de problème.
Par contre.
Il faut, pour que ma fonction "envoi de mail" fonctionne, activer la référence "Microsoft Outlook 15.0 Object Library"
Je peux activer cette référence dans mon Ficher Central, mais ce faisant, ça ne l'active pas dans mon Fichier Généré.
Je souhaitais donc, dans ma macro "envoi de mail" forcer cette activation.
J'ai donc noté le code suivant :
Code:
Private Sub CommandButton5_Click()
Dim x As String
x = "C:\Program Files (x86)\Microsoft Office\Office15\MSOUTL.OLB"
ThisWorkbook.VBProject.References.AddFromFile x
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
numero = Range("M5").Text
Nom = numero & " - " & Range("e9") & " " & Range("e10")
'If Nom_Fichier = "Faux" Then Exit Sub
Nom_Fichier = "\\Groups\2 - ACCIDENTS DE TRAVAIL-TRAJET\2017\" & numero & " - " & Range("e9") & " " & Range("e10") & "\" & numero & " - " & Range("e9") & " " & Range("e10") & ".pdf"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
With oBjMail
.To = "xxx.xxx@xxx.com"
.Subject = "TITRE"
.Body = "Bonjour à tous xxxxx"
.Attachments.Add Nom_fichier
.Display
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub
Et, comme vous l'imaginez [vu que je post ici] ça ne roudjouijoui fonctionne pas XD
Pourriez-vous m'aider s'il vous plaît ?
Bonne journée,
Lisette