Discussion :

[ClaudeLELOUP]

Bonjour,

Si j'exécute ce code (avec un fichier joint), Outlook envoie bien le message :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnvoyerMail()
    Dim olApplication   As Object
    Dim olmail          As Object
        Set olApplication = CreateObject("Outlook.Application")
        Set olmail = olApplication.CreateItem(olMailItem)
        With olmail
            .To = "destinataire@bidon.be"
            .Subject = "fghjklm"
            .Body = "ghjkl"
            .Attachments.Add "c:\pdf\tst.pdf"
            .Send
        End With
End Sub

Par contre, si je n'ai pas de fichier à joindre, de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub EnvoyerMail()
    Dim olApplication   As Object
    Dim olmail          As Object
        Set olApplication = CreateObject("Outlook.Application")
        Set olmail = olApplication.CreateItem(olMailItem)
        With olmail
            .To = "destinataire@bidon.be"
            .Subject = "fghjklm"
            .Body = "ghjkl"
            .Send
        End With
End Sub

génère cette erreur :



Quelqu'un peut-il expliquer pourquoi et comment faire pour empêcher l'erreur ?

[loufab]

Salut Claude !

Je viens de faire le test et je n'ai pas le problème.

Par contre je suis en Office 2013.

Cordialement,

[loufab]

Il semblerait, en lisant des sources à droite à gauche, que les anciennes versions d'Outlook ne supporte pas ces appels lorsqu'il est ouvert.

Réparation / mise à jour / montée en version ?

[Malick]

Il semblerait, en lisant des sources à droite à gauche, que les anciennes versions d'Outlook ne supporte pas ces appels lorsqu'il est ouvert.

J'essaie également de faire le test avec Access 2007, mais j'ai un message d'erreur aussi :



EDIT : c'est la bibliothèque Microsoft Outlook object library qui n'était pas activée, maintenant c'est ok et le code fonctionne.

Je vais tenter avec Access 2010

[Malick]

@ Claude : avec Access 2010, le code a fonctionné normalement et sans pièce jointe.

Le problème serait peut-être causé par la version comme souligné par loufab

[ClaudeLELOUP]

Merci Fabrice, Merci Malick,

- j'ai déclenché la réparation de Microsoft Office Professionnel Plus 2010

Rien n'y fait.

Je ne sais plus où chercher...

Merci pour vos essais.