Send ne fonctionne envoie d'email outlook depuis Excel 2016

Bonjour à tous.

Je ne comprends pas. J'ai trouvé plein d'exemples un peu partout sur le net et chez moi ça ne fonctionne pas.

J'essaye, depuis une Form VBA dans excel, à envoyer un email via outlook et j'ai un message d'erreur.

Voici le code trouvé sur le net :

With oBjMail

.To = "LeClient@gmail.com" ' le destinataire

.Subject = "Ici c'est l'objet" ' l'objet du mail

.Body = "Ici le texte du mail " 'le corps du mail ..son contenu

.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier

.Display ' Ici on peut supprimer pour l'envoyer sans vérification

'.Send

End With

.Display fonctionne. La fenêtre outlook apparaît avec les bonnes infos dans les champs to, subject, body.

Quand je mets .display en commentaire et que j'enlève le commentaire de .send un message d'erreur apparaît.

Erreur d’exécution 287. Erreur definie par l'application ou par l'objet.

Et en mode debug la ligne .send est en jaune.

Microsoft outlook 16.0 Object library est coché dans outils/references.

Je n'ai plus de cheveux !! Help please.

Merci d'avance à ceux qui pourront m'aider.

Cdt.

Bonsoir,

Sans doute un problème sur l'instruction ".Attachments.Add " . Mettez-la en commentaire et essayer de nouveau ".send"

Bonsoir

Merci pour la réponse mais ce n'est pas ça.

J'ai supprimé la ligne et le debug s’arrête sur la ligne .send

Je ne comprends pas car tout le monde dit que .send fonctionne.

Je n'ai plus que 3 ou 4 cheveux maintenant.

J'espère que quelqu'un connait le truc.

Cordialement.

Avant de de devenir chauve, communiquez donc une version plus complète de votre code ou un fichier joint significatif.