AddMailAttachment

[SPH]

Quand on envoi un email, on peux mettre une piece jointe. Mais la notice dit qu'une piece jointe peux ne pas etre créée. Pourquoi ?

J'ai un invalid access memory a mon AddMailAttachment

Comment faire ???

[Ar-S]

Je sais pas pourquoi.
Si tu zippais les différents éléments à joindre avant l'envoi, ça ne ferait qu'une pièce jointe..

[SPH]

Je sais pas pourquoi.
Si tu zippais les différents éléments à joindre avant l'envoi, ça ne ferait qu'une pièce jointe..

Figure toi que je n'avais qu'une piece de 3k a envoyer !!! Et ca a echoué (sur XPSP3). Par contre, tout passe sur vista...

J'avoue que cet echec m'a foutu un coup au moral parce que je ne vois pas pourquoi une piece si legere ne veux pas etre attachée. J'ai pensé a mettre la piece en octet par octet dirrectement dans le texte du mail mais j'ai arreté de penser a des chemins detournés car ca m'ennnnnerve

[SPH]

Haaaa, je suis en colere quand meme. Une piece jointe de 3k, ca passe sur n'importe quel logiciel de mail et sur n'importe quel webmail mais pas forcement sous PB. Il faudra que Fred m'explique quel est le mecanisme qui fait que AddMailAttachment puisse echouer !!!

[Fred]

Poste un petit exemple qui montre l'erreur.

[SPH]

J'y ai un peu travaillé et il semble qu'un fichier SANS EXTENTION fasse une erreur invalid access memory... (c'est le cas sur XP SP3 mais pas sur Vista)

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "", "Envoie")
          SetMailBody(0, "Le message dans l'email")
          AddMailRecipient(0, "******@gmail.com", #PB_Mail_To)
          For i=0 To cmb
            Repeat
              r=AddMailAttachment(0, Str(i), "c:\SPH\file"+str(i)); ET LA, je ne met pas d'extention PUISQUE mes fichiers n'en ont pas
            Until r<>0
          Next
          Resultat = SendMail(0, "smtp.orange.fr", 25, 0)
          If resultat=0
            Resultat = SendMail(0, "smtp.free.fr", 25, 0)
            If resultat=0
              Resultat = SendMail(0, "smtp.cegetel.fr", 25, 0)
              If resultat=0
                Resultat = SendMail(0, "smtp.alice.fr", 25, 0)
                If resultat=0
                  Resultat = SendMail(0, "smtp.club-internet.fr", 25, 0)
                  If resultat=0
                    Resultat = SendMail(0, "smtp.neuf.fr", 25, 0)
                    If resultat=0
                      Resultat = SendMail(0, "smtp.noos.fr", 25, 0)
                      If resultat=0
                        Resultat = SendMail(0, "smtp.tele2.fr", 25, 0)
                        If resultat=0
                          Resultat = SendMail(0, "smtp.tiscali.fr", 25, 0)
                          If resultat=0
                            Resultat = SendMail(0, "smtp.wanadoo.fr", 25, 0)
                            If resultat=0
                              Resultat = SendMail(0, "smtp.caramail.fr", 25, 0)
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
          Debug ("Envoie de l'email")
          Debug ("Nb de fichiers : "+Str(cmb))
        EndIf

Je vais faire des tests mais si il ne s'agit que d'erreur parce que le fichier n'a pas d'extention, c'est pas grave

[SPH]

Ouai c'est ca, si la piece jointe n'a pas d'extention, ca plante (sur mon XP en tout cas) !! C'est bon a savoir...

[Fred]

Ca a l'air d'etre un bug, je vais regarder.

[Mesa]

Le bug sera-til corrigé un de ces jours ?

Merci.

Mesa.