Lancer Outlook Via VBA
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.
Application.Dialogs(xlDialogSendMail).Show
Bonjour,
Voici un test logique qui permet de tester si outlook et ouvert ....si ouvert rien faire sinon l'ouvrir .
A mettre en début de code.
Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
Shell "Outlook.exe", vbHide
End If