Envoi de mail avec pièce jointe

Bonjour à tous,

Je connais excel mais absolument pas le vba.

Je sais que le sujet a déjà été traité mais je n'arrive pas à faire la relation.

Je fais faire un test informatisé à un public.

Ce test se fait via le net.

Une fois ce test fait je dois renvoyer ce test corrigé à chaque personne.

Comment faire pour envoyer à chaque personne un mail avec une pièce jointe individuelle et un texte dans le mail ?

Je joins un exemple de fichier.

Je ne sais pas si cela est possible, peut-être pourrez-vous m'aiguiller dans ce projet.

Dans l'attente, agréable journée

37classeur1.xlsx (9.99 Ko)

Hello,

à tester (cocher la réfenrence outlook library avant) :

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Dim Fichier_Prendre As String

i= 2

while activesheet.cells(i,3).value <> ""
       Nom_Fichier = activesheet.cells(i,4).value
    With oBjMail
        .To = activesheet.cells(i,3).value
       .Subject = "sujet à définir"
       .Body = activesheet.cells(i,5).value
       .Attachments.Add Nom_Fichier 
       .Display  'pour afficher
       .Send 'pour envoyer(enlever le display si ok)
    End With
Set oBjMail = Nothing
    Set ObjOutlook = Nothing

i = i+1
wend

ObjOutlook.Quit

R@g

Bonjour,

Merci de m'avoir répondu, désolé, je n'ai pas vu de suite.

Je vais essayer mais comme je suis novice en vba je ne vous promets pas un résultat concluant.

Dans tous les cas je vous remercie et vous tiens au courant.

Agréable soirée

Rechercher des sujets similaires à "envoi mail piece jointe"