Envoyer un mail avec VBA

Bonjour à tous,
je voudrais envoyer des mails avec VBA. J’ai donc regardé plusieurs tutos.
j’ai trouvé celui ci en pièce jointe tout simple pour commencer.

J’ai fait exactement ce qui est écrit pour tester mais j’ai une erreur 438 qui s’affiche. Outlook ne s’ouvre pas et rien ne passe. J’ai pourtant bien mis Outlook dans les références disponibles pour VBA.

Si quelqu’un peut m’aider ce serait super.

Merci d’avance

Bon dimanche

Bonjour, voici ce que j'utilisais, à adapter suivant ce que tu veux. Je ne pense pas avoir supprimé une partie du code pour que ça fonctionne

Dim ObjOutlook As New Outlook.Application
Dim oBjMail

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

    With oBjMail
        .To =  ' le destinataire
        .Subject =   ' l'objet du mail
        .Body =  'le corps du mail ..son contenu
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        '.Send
    End With

    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

merci de votre retour mais cela ne fonctionne pas non plus.

Bonjour Jiffou31 et

Une petite présentation ICI serait la bienvenue

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] qui vous aidera dans vos demandes et réponses sur ce forum
et notamment :

• Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles (cet utilitaire peut vous aider à les retirer).

Merci de votre compréhension

Cordialement

Ça y est ! Ça marche

Merci à vous