Fichier joint dans un mail

Bonjour,

essaie en ajoutant la ligne surlignée

With iMsg
    Set .Configuration = iConf
    .To = email 'Renvoie une erreur si l'adresse est non valide
    '.From = "youralias@yourdomain.com"
    .From = "martinjjbad@sfr.fr"
    '.cc=
   .attachments.deleteall()
    .Subject = "Dossier d'inscription incomplet"
    '.AddAttachment Fichier
    .AddAttachment NomFichierComplet
    .HTMLBody = strHTML
    .Send
End With

Il me marque erreur de complilation Attendu : =

Merci

Bonjour,

peut-être pas une solution élégante mais essaie ceci

remplace

Dim cel1 As Range
Set cel1 = Range("A1")
Dim email As String
Dim NomOrdinateur As String
Dim NomFichier As String
Dim NomFichierComplet As String

NomOrdinateur = Application.UserName
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

For i = 1 To 3

par

Dim cel1 As Range
Set cel1 = Range("A1")
Dim email As String
Dim NomOrdinateur As String
Dim NomFichier As String
Dim NomFichierComplet As String
For i = 1 To 3
NomOrdinateur = Application.UserName
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Merci beaucoup, çà fonctionne. La seule chose c'est que çà met 25 secondes pour envoyer 3 mails avec fichier joint. Est-ce normal ?

J.J Martin

re bonjour,

c'est pour cela que je parlais d'un solution pas très élégante ...

mais je n'ai pas trouvé comment faire autrement.

Merci pour ton aide précieuse .

Bonjour, je rencontre le même problème.

En plaçant le fichier, à envoyer en PJ, à la racine de C, il n'y a plus de problème.

Pourquoi?