Envoi EMAIL automatique - Erreur lors de l'exécution macro

Bonjour à tous,

Un petit soucis, sans doute très banal, mais je n'ai pas trouvé de solution par moi-même ou sur différents forum.

Je souhaite un envoi automatique d'un Email.

Lorsque je lance ma macro, outlook est ouvert, l'email est créé, mais de retour sur Excel, j'ai un message d'erreur pour ".send"...

La macro:

Sub Email_M1()

Dim ObjOutlook As New Outlook.Application

Dim oBjMail

Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

'---------------------------------------------------------

With oBjMail

.To = Sheets("Email_M1").Range("F6").Value

.Subject = Sheets("Email_M1").Range("F12").Value

.CC = Sheets("Email_M1").Range("F9").Value

.Body = Sheets("Email_M1").Range("F14").Value

.Display

.Send

End With

ObjOutlook.Quit

Set oBjMail = Nothing

Set ObjOutlook = Nothing

End Sub

Quelqu'un pourrait-il m'aiguiller ?

D'avance merci.

Willau

Bonjour,

D'abord supprimer ces 2 instructions :

Set ObjOutlook = New Outlook.Application (double emploi avec Dim ObjOutlook As New Outlook.Application)

ObjOutlook.Quit (va fermer votre application Outlook)

Ensuite si vous avez une erreur sur le send, c'est probablement que votre "To" ou votre "CC" ne sont pas sous la forme d'une adresse mail :

destinataire@domaine.extension

Bonjour thev,

Merci pour la contribution.

Je check ça. Il semble maintenant évident qu'avec ces modifications, mon code fonctionnera

Encore merci !

Willau