FOUQUET Yves
XLDnaute Occasionnel
Bonjour,
Quelqu'un peut m'expliquer pourquoisoudainement cette procédure automatique pour ouvrir Outlook avant d'envoyer un mail, ne fonctionne plus ?
message erreur : Un composant Activx ne peut pas créer d'objet.
sur la ligne: Set oOL = GetObject(, "Outlook.Application")
Cela fonctionnait très bien jusqu'à midi et là plus rien.
Si j'ouvre Outlook manuellement avant alors le reste de la procédure fonctionne et les messages sont dans la boite d'envoi.
Merci.
Quelqu'un peut m'expliquer pourquoisoudainement cette procédure automatique pour ouvrir Outlook avant d'envoyer un mail, ne fonctionne plus ?
message erreur : Un composant Activx ne peut pas créer d'objet.
sur la ligne: Set oOL = GetObject(, "Outlook.Application")
Cela fonctionnait très bien jusqu'à midi et là plus rien.
Si j'ouvre Outlook manuellement avant alors le reste de la procédure fonctionne et les messages sont dans la boite d'envoi.
Merci.
VB:
Function OutlookOuvert() As Boolean
Dim oOL As Object
On Error Resume Next
Set oOL = GetObject(, "Outlook.Application")
On Error GoTo 0
OutlookOuvert = Not (oOL Is Nothing)
Set oOL = Nothing
End Function
'--------------------------
Private Sub CommandButton2_Click()
' ceci correspond au bouton "Envoyer le message" qui ouvre et compléte Outlook
Dim PathName As String
If OutlookOuvert = False Then i = Shell("Outlook", vbNormalNoFocus)
' CHEMIN ======
NomFichierComplet = UserForm12.chemin2 & "\Bonjour XXXX.jpg"
EmbedPicture NomFichierComplet '"D:\Gestion AHI\Bonjour XXXX.jpg"
End Sub
