En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Poster une réponse

Je vous remercie de prendre le temps d'écrire ce message.

Votre nom (ou pseudo) :
Votre courriel :
Montrer aux visiteurs votre adresse Courriel :      
Note : l'adresse Courriel utilisée est protégée contre le SPAM.

S'abonner à ce fil de discussion :      

Vous répondez à flomen qui a écrit :

 

Voici le message que j'obtient uniquement sur certains postes

Erreur Exécution -2147319779 (8002801d)

Erreur automation bibliothèque non inscrite

ce message apparait sur cette instruction :

Set OL = New Outlook.Application  

Voici le Code

Function EnvMailViaOutlookTest()
Dim OL As Outlook.Application, mi As Outlook.MailItem
On Error GoTo Err
Set OL = New Outlook.Application  ' <------ Erreur
Set mi = OL.CreateItem(olMailItem)
DestMailTO = "xxxxx@gmail.com"
SujetMail = "Test mail via Outlook"
TxtMail = "Test d'envoi d'un mail via Outlook"
With mi
    .To = DestMailTO
    .Subject = SujetMail
    .Body = TxtMail
    .Display
End With
Set mi = Nothing: Set OL = Nothing
Exit Function
Err:
    MsgBox "Erreur : " & Err.Number & " - " & Err.Description
End Function

Avez vous une solution ?

Cordialement



Règlement Général sur la Protection des Données

Conditions d'utilisation de vos données personnelles.

En soumettant ce formulaire, j'accepte que les informations saisies soient exploitées uniquement dans le cadre de ce site, pour permettre de me recontacter. Pour connaître et exercer vos droits, notamment de retrait de consentement à l'utilisation de vos données, veuillez consulter nos Mentions Légales et contacter le Webmestre du site.

J'accepte :

Recopier le code :

 
Vous êtes ici :   Accueil » Poster une réponse