Microsoft 365 macro excel

Staple1600 à dit:

Re

Est-ce tu avais lu le message#2 attentivement?
Si oui tu as remarqué les mots en gras
en guise de test
Donc à tester dans un classeur vierge qu'on aura enregistrer dans un dossier dans le lequel on aura mis un fichier PDF quelconque pour faire le test.
Et comme je le précisais ensuite on adapte avant de lancer la macro
Exemple de test
1) J'enregistre mon classeur de test dans C:\Users\Staple\Test
Donc ce petit test ci-dessous affichera "C:\Users\Staple\Test\"

VB:

Sub chemin()
Repertoire = ThisWorkbook.Path & "\"
MsgBox Repertoire
End Sub

2) Je copie donc dans C:\Users\Staple\Test un fichier PDF que je nomme pour mon test: toto.pdf
3) J'adapte le code VBA en conséquence

Enrichi (BBcode):

Sub test_mail_II()
Dim P_Jointe$, Repertoire$
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "toto.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "staple1600@ugumma.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add P_Jointe
        .Display
        '.Send
    End With
End Sub

4) Je lance le test

Cliquez pour agrandir...

naf naf à dit:

je viens d'essayer.
Test OK, le mail est bien créé. Et le PDF attaché au mail.
Merci encore pour votre aide

Cliquez pour agrandir...

Staple1600 à dit:

Re

=>naf naf
Comme mon thé est trop chaud, que un petit G••gle suffira pour le faire refroidir

A tester
1) Directement dans Outlook
(en faisant les adaptations nécessaires)
2) Dans Excel, également avec les adaptions qui s'imposent.

VB:

Sub CreateFromTemplate()
Dim MyItem As Outlook.MailItem

Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft")
MyItem.Display
End Sub

Sub CreateTemplate()
Dim MyItem As Outlook.MailItem

Set MyItem = Application.CreateItem(olMailItem)
MyItem.Subject = "Status Report"
MyItem.To = "Dan Wilson"
MyItem.Display
MyItem.SaveAs "C:\statusrep.oft", OlSaveAsType.olTemplate
End Sub

NB: Code exemple issu de l'aide en ligne de Microsoft

PS: Le code à prendre en compte pour la question à traiter étant uniquement celle-ci: Sub CreateFromTemplate

Pour joindre une PJ, amender le code avec ma précédente proposition
=>cf la ligne Attachments.Add

Cliquez pour agrandir...

Staple1600 à dit:

Re

En théorie, tu devrais être en train de tester un code VBA de ce genre

VB:

Sub test_mail_avec_modele()
Dim Outlook_Mod$, P_Jointe$, Repertoire$
Outlook_Mod = "C:\statusrep.oft" ' à adapter
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)
        .To = "adressemail@domain.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add P_Jointe
        .Display
        '.Send
    End With
End Sub

Est-ce le cas?
Et si oui que donne le test?

NB: Je ne peux pas tester. Ici je n'ai pas Outlook.

PS: Le premier code (message#2) émanait de mes archives
(donc testé et fonctionnel)

Cliquez pour agrandir...

naf naf à dit:

Sub test_mail_avec_modele()

Dim Outlook_Mod$, P_Jointe$, Repertoire$

Outlook_Mod = "C:\Users\jh608188\Documents\test oft.oft" ' à adapter

Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "test mail.txt" ' à adapter

With CreateObject("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)
.To = "adressemail@domain.fr" ' à adapter
.Subject = "Objet TEST" ' à adapter
.Body = " Ceci est un test" ' à adapter
.Attachments.Add P_Jointe
.Display

End With
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Qu'affiche ce test?

VB:

Sub test()
Repertoire = ThisWorkbook.Path & "\"
MsgBox Repertoire
P_Jointe = Repertoire & "test mail.txt"
MsgBox P_Jointe
End Sub

On est bien d'accord que test mail.txt est stocké dans le même répertoire que le classeur?

Et quelle est le message d'erreur qui s'affichait?

Cliquez pour agrandir...