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 :

 

Après rectification ça fonctionne sur tous les postes !

Dim OL As Object, mi As Object ' <======= Remplacé par ceci Set OL = CreateObject("Outlook.Application") ' <======= Remplacé par ceci


Function EnvMailViaOutlookTest1()
Dim OL As Object, mi As Object   ' <======= Remplacé par ceci
Set OL = CreateObject("Outlook.Application") ' <======= Remplacé par ceci
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



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