Lancer Outlook via VBA

Résolu/Fermé

Outlook

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - Modifié par pijaku le 18/07/2014 à 12:41
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 - 15 mars 2016 à 19:26

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 & "<br>" _
 & vbCrLf & "<br>" _
 & "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 & "<br>" _
 & "<HTML><BODY>" _
 & "<A href=U:\Prévention\RDP\Nouveaux_RDP\>U:\Prévention\RDP\Nouveaux_RDP\</A>" _
 & "</BODY></HTML>" _
 & vbCrLf & "<br>" _
 & "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.

A voir également:

Vba outlook
Nouveau outlook - Guide
Compte outlook gratuit - Guide
Postmaster outlook - Forum Hotmail / Outlook.com
Outlook mot de passe oublié - Guide
Réponse automatique outlook - Guide

9 réponses

Réponse 1 / 9

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 juil. 2014 à 10:43

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 = Nothing
End Sub

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
18 juil. 2014 à 11:08

Bonjour,

Merci pour ce code, mais il ne fonctionne pas chez moi (je parle uniquement pour la partie ouverture de Outlook, le reste fonctionne parfaitement.
Je détaillerai plus mon problème dès que j'aurais un peu de temps.

Encore merci, bonne journée.

Réponse 2 / 9

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 juin 2014 à 12:44

Bonjour,

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

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
7 juil. 2014 à 14:27

Bonjour,

Désolé pour la lenteur de ma réponse, j'étais absent toute la semaine dernière.

Merci pour l'aide, c'est exactement ce qu'il me fallait !

Bonne journée.

Réponse 6 / 9

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
22 juil. 2014 à 10:33

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
22 juil. 2014 à 10:41

Bonjour,

en effet, outlook se relance systematiquement !!!!!!!
Je ragarde la chose.

A+

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
24 juil. 2014 à 10:54

Bonjour,

Merci pour le temps que vous consacrez à mon problème.

Bonne journée.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 juil. 2014 à 11:05

Re,

ceci résout la chose:

'Ok

Sub SendMail_Outlook()
   
  Dim OL As Object
  Dim OLmail As Object
  
  Set OLk_Appli = CreateObject("Outlook.Application")
  
  If OLk_Appli.Explorers.Count > 0 Then
    'Ok outlook ouvert
  Else
    'mettre le bon chemin outlook
    OLk_OK = Shell("C:\Program Files (x86)\Microsoft Office\Office15\outlook.exe", vbHide)
  End If
   
  Set OL = CreateObject("Outlook.Application")
  Set OLmail = OL.CreateItem(0)
   
    With OLmail
        .To = "fabiengaluchet@gmail.com"
        .Subject = "test_envoi_x"
        .Body = "azerty"
        '.display
        .Send
    End With
    
    Set OLmail = Nothing
    Set OL = Nothing
    Set OLk_Appli = Nothing
End Sub

Réponse 7 / 9

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
24 juil. 2014 à 11:15

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 juil. 2014 à 11:20

Bonjour,

Ca roule ??

En effet, c'est plus simple, mais il semble que beaucoup ne connaisse pas cette possibilite et surtout beaucoup utilise doive utilise Outlook en messagerie, donc Outlook parait etre l'evidence

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
24 juil. 2014 à 11:23

Salut,

Oui ça roule et toi?

L'avantage d'Outlook étant le suivi des messages envoyés...

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 juil. 2014 à 11:26

Re,

Ca roule.

bye

Réponse 8 / 9

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
24 juil. 2014 à 14:05

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.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 24/07/2014 à 14:12

Salut,

pour te répondre :
1- suffit de "construire" l'adresse mail d'expéditeur. Très simple à partir de l'identifiant de session je supposes...

Sub test()
MsgBox Environ("USERNAME")
MsgBox ReconstruireAdresseMail(Environ("USERNAME"))
End Sub
Function ReconstruireAdresseMail(Identifiant As String) As String
ReconstruireAdresseMail = Identifiant & "@blabla.fr"
End Function

2- Pour une société, tu peux, peut être, juste récupérer le nom du serveur smtp... C'est encore plus simple.

objMessage.Configuration.Fields.Item _
("[http://schemas.microsoft.com/cdo/configuration/sendusing]") = 2
objMessage.Configuration.Fields.Item _
("[http://schemas.microsoft.com/cdo/configuration/smtpserver]") = "smtp.BLABLABLA.net"
objMessage.Configuration.Fields.Item _
("[http://schemas.microsoft.com/cdo/configuration/smtpserverport]") = 25

Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 28
24 juil. 2014 à 16:42

Huum oui c'est vrai, je peux en récupérant l'Username faire faire l'adresse mail mais je pense qu'il faut passer par un tableau de données vu que nos Username sont : 1ère lettre prenom + nom et que nos adresse mail sont prénom.nom@société.com
Mais du coup je peux facilement dire que si l'username est xxx alors l'adresse mail est xxx !

Je n'étais pas au courant de cette "astuce" pour la société, merci.

Je vais m'entrainer un peu à travailler avec ça.

Merci beaucoup et bonne fin de journée !

Réponse 9 / 9

eric2027
15 mars 2016 à 13:21

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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 mars 2016 à 18:18

Bonjour a tous,

As-tu regardé ce lien qu'a donné pijaku. Tout y est expliqué!

https://www.commentcamarche.net/faq/36411-vb6-vba-envoi-mail-avec-l-objet-cdo

@+ Le Pivert

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
15 mars 2016 à 19:26

j'ai essayé mais mon pdf ne va pas dans hotmail

Discussions similaires

Messages envoyés en double

Message erreur outlook 365 APLZOD64.dll

Répondre à l'expéditeur après avoir transféré son mail

comment on se déconnecte de l'application svp?

vous ne disposer pas des autorisations nécessaires pour effectue

impossible d'envoyer vers Gmail

Discussions similaires

Newsletters