Lancer Outlook via VBA Résolu

Question

Bonjour, J'ai besoin d'aide pour résoudre un petit soucis. Dans un de mes fichiers Excel, j'ai une macro qui permet l'envoie automatique d'un mail via Outlook. Celle-ci fonctionne très bien à une condition : que Outlook soit ouvert avant l'exécution de la macro, or ce n'est pas toujours le cas pour les utilisateurs de ce fichier... J'aurais donc aimé savoir si une "solution technique" pouvait palier à ce problème, à savoir ouvrir outlook via VBA si celui-ci n'est pas déjà ouvert. Dans le cas contraire je diffuserais alors une information, et ajouterais une msgbox avant l'exécution de la macro pour informer les personnes concernées. Pour info, voici la partie de ma macro pour l'envoie du mail : Dim ObjOutlook Dim oBjMail Set ObjOutlook = CreateObject("outlook.application") Set oBjMail = ObjOutlook.CreateItem(olMailItem) If pj = "Faux" Then Exit Sub If VarType(pj) = vbBoolean Then Exit Sub Corps = "Bonjour," & vbCrLf & "
" _ & vbCrLf & "
" _ & "Le RDP du " & ThisWorkbook.Sheets(2).[C92].Value & " concernant la zone : " & ThisWorkbook.Sheets(1).[C17].Value & " est consultable en cliquant sur le lien ci-dessous :" & vbCrLf & "
" _ & "" _ & "U:\Prévention\RDP\Nouveaux_RDP\" _ & "" _ & vbCrLf & "
" _ & "Bien à vous," With oBjMail .To = "xxx@xxx.com" .Subject = "Blabla: " & ThisWorkbook.Sheets(2).[E92].Value .HTMLBody = "" .BodyFormat = 2 '.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute .HTMLBody = Corps & oBjMail.HTMLBody .Send End With Merci d'avance pour votre aide.

f894009 · Answer

Bonjour,

https://forums.commentcamarche.net/forum/affich-14265562-pb-lancement-d-outlook-par-vba-d-escel

Villette54 · Answer

Bonjour, 

Je me permet de rouvrir ce sujet car après avoir enfin pris le temps d'essayer la solution donné par Michel_m dans le sujet que f894009 m'a donné ne fonctionne pas, je me suis dit que cela pouvait être dû à une référence manquante, j'ai donc activer toutes les "Microsoft Outlook Library ....." mais l'erreur reste la même.

Ci-dessous le détail de l'erreur :

Merci d'avance pour votre aide, 
Bonne journée.

f894009 · Answer

bonjour,

manque une virgule !!!!!!!

Set OLk_Appli = GetObject(, "Outlook.Application")

Villette54 · Answer

Bonjour, 

Même avec la virgule ça ne fonctionne toujours pas :

Dans le doute j'ai activé toutes les libraries avec ActiveX dans leur nom, mais toujours la même erreur.

f894009 · Answer

Bonjour,

sans la virgule cette fois-ci !!!!!!!

un exemple qui marche chez moi:

    'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
    ' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
  'Ok
Sub SendMail_Outlook()     Dim OL As Object  Dim OLmail As Object  On Error Resume Next  Set OLk_Appli = GetObject("Outlook.Application")  If OLk_Appli Is Nothing Then    'mettre le bon chemin outlook    OLk_OK = Shell("C:\Program Files (x86)\Microsoft Office\Office15\outlook.exe", 1)  End If     Set OL = CreateObject("Outlook.Application")  Set OLmail = OL.CreateItem(0)       With OLmail        .To = "fabiengaluchet@gmail.com"        .Subject = "test_envoi"        .Body = "BLABLA"        '.display        .Send    End With        Set OLmail = Nothing    Set OL = Nothing    Set OLk_Appli = NothingEnd Sub

Villette54 · Answer

Hello, 

Je reviens sur le problème que j'ai rencontré lors de l'utilisation de cette macro :

- Si la boite mail est déjà ouverte, la macro s'exécute quand même et m'ouvre une deuxième fois la boite mail, ce qui d'ailleurs est assez bizarre (la même boite mail ouverte deux fois via outlook, ça fait des choses bizarres)

- Si la boite mail est fermée, alors j'ai le message d'erreur ci-dessous qui apparaît 


Une idée du problème ?

Merci d'avance,

Bonne journée.

pijaku · Answer

Bonjour,

Juste de passage...
Pourquoi ne pas passer par l'objet CDO plutôt que par Outlook?
Comme cela, on s'en fiche qu'il soit fermé, ouvert ou pas installé...

Voir cette astuce CCM.

Villette54 · Answer

Bonjour à vous deux,

f894009 : Merci beaucoup, ta solution fonctionne parfaitement.

pikaju : Effectivement je ne connaissais pas cette solution (merci elle me servira certainement pour d'autres choses), mais en l'essayant je me suis rendu compte que cela n'était pas approprié à mon utilisation actuelle pour deux raisons :

1. La personne qui envoie le mail n'est pas toujours la meme, et chacun a besoin de l'envoyer depuis son adresse mail.
2. Ce fichier est pour la société dans laquelle je travaille, et le soucis est que la macro ne fonctionne pas sans l'authentification et je suis incapable de m'authentifier, puisque nos adresses de messagerie n'ont pas de mot de passe, nous n'en avons qu'un pour ouvrir notre session.

Enfin peu importe, je suis certain que je pourrais l'utiliser dans un autre cadre. 

Encore merci à vous deux, bonne journée.

eric2027 · Answer

Bonjour,

Je me suis connecté à ce post, le résultat est tout à fait dans l'attente que j'en avais besoin, aussi ma question supplémentaire, peut-on mettre une pièce tel que pdf, je m'explique, j'ai un tableau excel d’où je fais un pdf, quand le pdf est fait, peut-on l'envoyer en pièce automatiquement sur outlook
Par avance, merci
Cordialement

Lancer Outlook via VBA

9 réponses

Discussions similaires

Newsletters