Erreur envoi mail Outlook via office

Le 02/02/2021 à 13:19

Bonjour à tous,

Je possède un fichier Excel avec un bouton qui envoi une plage de cellule par mail via Outlook.

Ce fichier fonctionne parfaitement si l'application Outlook est ouverte, mais si on ouvre Outlook via office, j'ai cette erreur qui apparaît :

erreur 1 erreur 2

Merci d'avance

Menzo

Le 02/02/2021 à 13:41
18test.xlsm (244.83 Ko)
Le 02/02/2021 à 14:01

Bonjour

Peut être ceci :

Sub envoiPlageCellules_Excel()

ActiveSheet.Unprotect ("065208")
ActiveSheet.Range("B11:E35").Select

Dim ol As New Outlook.Application
Dim olmail As MailItem
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
    .Subject = "Commande outillage"
    .to = "email.test@mail.fr"
    .Body = "texte du message"
    .Display
    '.Send
End With
MsgBox "La demande à bien été envoyée"
ActiveSheet.Protect ("065208")
ThisWorkbook.Close Savechanges:=False
End Sub

- Désactivez le .display ou profit de .send (je vous le laisse pour vérifier avant envoi
- En premier il faut que l'option "Microsoft Outlook Library" est activée. Pour ce faire, allez dans l'éditeur VBA: allez dans Menu / Outils / References puis cochez la case "Microsoft Outlook Library".

Cordialement

Le 02/02/2021 à 14:23

Bonjour Dan,

J'ai toujours une erreur, voir ci-dessous :

erreur 3
Le 02/02/2021 à 14:45

J'ai toujours une erreur, voir ci-dessous :

Vous avez coché la case dans le menu VBA comme expliqué ?

Le 02/02/2021 à 14:53

Oui elle est cochée

image
Le 02/02/2021 à 15:07

Non justement. Relisez, je vous ai écrit Microsoft OUTLOOK Library....

Le 02/02/2021 à 15:17

Ah oui désolé je n'avais pas fait attention.

Je viens de regarder, mais je n'ai pas "Microsoft Outlook Library"

Le 02/02/2021 à 15:30

essayez comme ceci

Sub envoiPlageCellules_Excel()

ActiveSheet.Unprotect ("065208")
ActiveSheet.Range("B11:E35").Select

Dim ol As Object
Dim olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = outapp.CreateItem(0)
With olmail
    .Subject = "Commande outillage"
    .to = "email.test@mail.fr"
    .Body = "texte du message"
    .Display
    '.Send
End With
MsgBox "La demande à bien été envoyée"
ActiveSheet.Protect ("065208")
ThisWorkbook.Close Savechanges:=False
End Sub
Le 02/02/2021 à 15:53

Je viens d'essayer, et j'ai une nouvelle erreur.

image image
Le 02/02/2021 à 16:30

Hum... c'est bizarre que vous n'avez pas l'option dans les outils VBA

Essayez en changeant les 4 lignes par ceci

Dim ol As Outlook.Application
Dim olMail As Outlook.MailItem
Set ol = CreateObject("outlook.application")
Set olMail = ol.CreateItem(olMailItem)

Eventuellement faites un test en cochant l'option Microsoft Office library ou en la décochant.

Le 03/02/2021 à 11:19

Bonjour Dan,

Toujours le même soucis...

image
Le 03/02/2021 à 11:58

Outlook est ouvert lorsque vous exécutez le code ?

Le 03/02/2021 à 13:58

Oui je suis connecté à Outlook.

Le 03/02/2021 à 14:39

Hum... pas simple à trouver une issue

Testez un peu comme ceci

Sub envoiPlageCellules_Excel()

ActiveSheet.Unprotect ("065208")
ActiveSheet.Range("B11:E35").Select

Dim ol As Object
Dim olmail As Object

On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
On Error GoTo 0

If ol Is Nothing Then Shell "Outlook.exe", vbHide

Set ol = CreateObject("Outlook.Application")
Set olmail = outapp.CreateItem(0)
With olmail
    .Subject = "Commande outillage"
    .to = "email.test@mail.fr"
    .Body = "texte du message"
    .Display
    '.Send
End With
MsgBox "La demande à bien été envoyée"
ActiveSheet.Protect ("065208")
ThisWorkbook.Close Savechanges:=False
End Sub
Rechercher des sujets similaires à "erreur envoi mail outlook via office"