Lancer Outlook via VBA

Résolu

Outlook

Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention -
eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention - 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
Synchroniser agenda google et outlook - Guide
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Postmaster outlook virus - Forum Virus
Incompatibilité de type vba ✓ - Forum Programmation
Supprimer compte outlook - Guide

9 réponses

Réponse 1 / 9

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 28

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention 28

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 Statut Membre Dernière intervention 28

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

A+

Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention 28

Bonjour,

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

Bonne journée.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Modérateur Dernière intervention 2 761

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Modérateur Dernière intervention 2 761

Salut,

Oui ça roule et toi?

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Ca roule.

bye

Réponse 8 / 9

Villette54 Messages postés 300 Date d'inscription Statut Membre Dernière intervention 28

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 Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention 28

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

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 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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 Statut Membre Dernière intervention 6

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

Votre réponse

Discussions similaires