Excel et Outlook

[joss56]

Bonjour à tous,

Je souhaite envoyer un mail à partir d'un form VBA. Je récupère l'adresse du destinataire (lblMail2) l'objet et le corps du message dans 2 textboxes et je code le bouton "envoyer" comme suit:

Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
        
            Set Ol = New Outlook.Application
            Set Olmail = Ol.CreateItem(olMailItem)

With Olmail
        .To = lblMail2
        .Subject = txtObjet
        .Body = txtMsgMail
        .Send
End With

Il ne se passe rien...(j'ai bien activé la bibliothèque Outlook ds mon projet). Merci de votre aide.

 

[MJ13]

Re : Excel et Outlook

Bonjour

Tu peux déjà tester ce fichier qui normalement fonctionne.

https://www.excel-downloads.com/threads/envoie-mail-automatique.108921/

Ensuite est-ce que Outlook est ouvert lors de l'envoi du message?

 

[joss56]

Re : Excel et Outlook

Merci Michel pour ces précisions fort utiles, mais je ne vois pas ce qui coince dans mon code...
La référence à Outlook est cochée et Outlook est fermé au moment de l'exécution du code
Jocelyn

 

[MJ13]

Re : Excel et Outlook

Re

Il me semble qu'il faut qu'Outlook soit ouvert pour que cela fonctionne.

As-tu essayé en le laissant ouvert?

Sinon mon fichier fonctionne t'il avec Outlook ouvert ou fermé?​

 

[joss56]

Re : Excel et Outlook

Re,

Le tien fonctionne Outlook fermé...mystère!

 

[JNP]

Re : Excel et Outlook

Bonjour le fil ,
Ne serait-ce pas Outlook qui bloque le message ? Il me semble qu'il y a une sécurité quelque part...
Bonne soirée