IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB]Bp envoie mail avec piéce jointe


Sujet :

VB 6 et antérieur

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    février 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 3
    Points : 2
    Points
    2
    Par défaut [VB]Bp envoie mail avec piéce jointe
    Bonjour,

    J'essaye d'envoyer un mail en visual basic avec comme pièce jointe un fichier exel,le mail est bien envoyer avec pas la pièce jointe : le non du fichier reçu correspond bien, mais celui ci est vide. Je pense qu'il ne trouve pas le fichier. Ou doit t'on indiquer le chemin du fichier dans le code?
    Ci quelqu'un à une idée?
    Merci.



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Commande = GenerateMessageID(Mid("toto@wanadoo.fr", InStr(1, "toto@wanadoo.fr", "@") + 1, Len("toto@wanadoo.fr"))) 
    Mailer.SendData (Commande) 
     
    'Formatage de la date 
    Commande = "DATE: " & Format(Now, "h:mm:ss") 
    'Envoi de la comande DATE 
    Mailer.SendData Commande & vbCrLf 
    MessagesWindow.Text = vbCrLf + MessagesWindow.Text + Commande 
     
    'Envoi de la commande FROM 
    Commande = "FROM&#58; " + "toto" + " <" + "toto@wanadoo.fr" + ">" & vbCrLf 
    Mailer.SendData Commande 
     
    Mailer.SendData "TO&#58; " + "toto" + " <" + "toto@wanadoo.fr" + ">" & vbCrLf 
    Mailer.SendData "Reply-to&#58; <" + "toto@wanadoo.fr" + ">" & vbCrLf 
    Mailer.SendData "SUBJECT&#58; " + "sauvegarde" & vbCrLf 
    Mailer.SendData "MIME-Version&#58;1.0" & vbCrLf 
    Mailer.SendData "Content-Type&#58;application/vnd.ms-excel; name=Heures sup2006.xls" & "Heures sup2006.xls" & vbCrLf 
    Mailer.SendData "Content-Transfert-Encoding&#58;base64" & vbCrLf 
    Mailer.SendData "Content-disposition&#58;attachment;filename=" & "Heures sup2006.xls" & vbCrLf & vbCrLf 
    Mailer.SendData vbCrLf & "." & vbCrLf 
    Mailer.SendData "QUIT" & vbCrLf
    [Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 20 029
    Points
    20 029
    Par défaut
    je comprends pas tout dans ta maniére d'nevoyer un mail avec piéce jointe... mais ce que je vois c'est que nulle part tu n'envoi le contenu du fichier.. n'as tu pas oublier quelque chose... ? d'ou viens ce code ?

    dans la FAQ il y as un code pour decoder un fichier en voyé en base 64 ...
    http://vb.developpez.com/faq/?page=Reseau#base64
    pour envoyer un fichier il doit falloir utiliser la méthode invers de codage..;

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    février 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Merci bbil pour tes infos, mais d'après ce que j'ai pu lire sur différent forum
    c'est les instruction SMPT "Content-Type:application/vnd.ms-excel; name=non du Fichier"
    , "Content-Transfert-Encoding:base64" et "Content-disposition:attachment;filename=" qui permette d’envoyer et de coder le fichier, puis c’est Outlook qui le décode en base64.
    Il doit effectivement manquer une instruction mais laquelle ?

  4. #4
    Expert éminent sénior


    Profil pro
    Inscrit en
    juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2003
    Messages : 14 008
    Points : 20 029
    Points
    20 029
    Par défaut
    c'est peu être aussi un histoire de guillemets....
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Mailer.SendData "Content-disposition&#58;attachment;filename= ""Heures sup2006.xls""" & vbCrLf & vbCrLf
    :

  5. #5
    Candidat au Club
    Profil pro
    Inscrit en
    février 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Ca ne marche pas non plus !

Discussions similaires

  1. Envoie Mail avec pièce jointe
    Par Sh@m@n dans le forum SAP
    Réponses: 11
    Dernier message: 05/04/2012, 15h22
  2. [XL-2007] Envoi mail avec pièce jointe
    Par jeff1494 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/08/2009, 18h54
  3. Envoi mail avec pièce jointe sans confirmation
    Par grrimag dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/04/2008, 15h23
  4. [VBA-E]envoi mail avec pièce jointe
    Par magictom42 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/03/2007, 12h33
  5. Envoie mail avec pièce jointe
    Par Juniora dans le forum Access
    Réponses: 3
    Dernier message: 03/04/2006, 15h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo