Envoyer un fichier par mail

Version imprimable

31/10/2006, 08h34
kmaniche

Envoyer un fichier par mail

Bonjour,

Je developpe une application de gestion, et le résultat d'une requette est sauver dans un fichier.

A l'aide d'un boutton je cherche à envoyer ce fichier (+ un objet et un texte) à un client que j'ai son adresse mail dans un TEdit (exemple : usflay@yahoo.fr).

Es-ce que quelqu'un pourrai m'aider, comment et quels composants utiliser.

Merci.

@+;)

Voici un bout de code que j'ai fait il y a quelques temps.
Je ne sais plus s'il marche mais il devrait t'aider à trouver ton bonheur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
bool EnvoieMail(TForm* Fiche,InfosMail Infos,TStrings* Body,bool Date)
{
 TIdSMTP* SMTP = new TIdSMTP(Fiche);//composant d'envoi de données
 TIdMessage* Message = new TIdMessage(Fiche);//composant de gestion du message
 
 Message->CharSet = "iso-8859-1";
 
 if (Date)//si insertion de date
 {
  AnsiString DatePost = "Posté le " + Now().DateString() + " à "+ Now().TimeString();//création de la ligne date
  Message->Body->Add(DatePost);//ajout au message
 }
 
 for (int i = 0;i < Body->Count;i++)//parcours des lignes du message
        Message->Body->Add(Body->Strings[i]);//ajout de la ligne
 Message->ContentType = "text/plain";//type de texte
 
 Message->From->Text = Infos.Source;//ajout adresse origine
 
 Message->Recipients->EMailAddresses = Infos.Cible;//ajout adresse cible
 Message->Subject = Infos.Sujet;//ajout sujet
 
 TIdAttachment* Attache = NULL;
 if (Infos.Joint.Length() != 0)//si piece jointe
 {
  Message->ContentType = "multipart/mixed";//type de message
  Attache = new TIdAttachment(Message->MessageParts,Infos.Joint);//ajout de la pièce jointe
 }
 
 SMTP->Host = Infos.SMTP; //adresse de l'hote
 SMTP->Port = 25;//port SMTP
 
 if (Infos.Pass.Length() != 0 && Infos.Login.Length() != 0)//si présence donnée log et pass
 {
  SMTP->UserId = Infos.Login;//ajout login
  SMTP->Password = Infos.Pass;//ajout pass
  SMTP->AuthenticationType = atLogin;//identification
 }
 else
        SMTP->AuthenticationType = atNone;//pas d'identification
 
 if (SMTP->AuthenticationType == atLogin)//si identification
 {
  if (!SMTP->Authenticate())//si identification ratée
  {
   if (Attache != NULL)
        delete Attache;
 
   delete Message;
   delete SMTP;
   return false;//erreur
  }
 }
 SMTP->Connect();//connection
 
 if (SMTP->Connected())//si connection OK
        SMTP->Send(Message);//envoie mail
 else//sinon
 {
  if (Attache != NULL)
        delete Attache;
  delete Message;
  delete SMTP;
  return false;//erreur
 }
 
 if (Attache != NULL)
        delete Attache;
 delete Message;
 delete SMTP;
 
 return true; //sortie OK
}

Nb:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
typedef struct
{
 AnsiString Source,//Mail source
            Cible,//Mail cible
            SMTP,//lien SMTP
            Login,//login pour lien SMTP
            Pass,//pass pour lien SMTP
            Sujet,//sujet du mail
            Joint;//chemin de la pièce jointe
}InfosMail;//structure info mail

31/10/2006, 09h08
Flow_75

une question concernant la structure que tu passes en parametre, en particulier a la variable Joint et a son commentaire correspondant. Il s'agit bien de la variable pour le fichier joint, rassure moi.....car d'apres le commentaire, il s'agit d'une couleur...........et dans ton code, il s'agit des parametre de la piece jointe.
Merci
31/10/2006, 09h13
bakaneko

Citation:

Envoyé par Flob91

une question concernant la structure que tu passes en parametre, en particulier a la variable Joint et a son commentaire correspondant. Il s'agit bien de la variable pour le fichier joint, rassure moi.....car d'apres le commentaire, il s'agit d'une couleur...........et dans ton code, il s'agit des parametre de la piece jointe.
Merci

Oups :oops:
Erreur de copier/coller dans le commentaire :mouarf:
C'est bien le chemin de la pièce jointe
31/10/2006, 10h53
pottiez

Sinon il y a le composant TNMSMTP, qui est facile a utiliser.
31/10/2006, 10h59
kmaniche

Bonjour,

j'ai un compte sur yahoo.fr "kusp@yahoo.fr" et cherche à envoyer un mail+un fichier attaché vers l'email "usflay@yahoo.fr"

Malheuresement je ne conais pas l'adresse du host de yahoo

merci de m'aider svp.

@+;)
31/10/2006, 11h26
pottiez

Généralement cette adresse est smtp.yahoo.fr, mais il se peut que ce ne soit pas ca car certain fournisseur cache cette adresse pour vendre des service spécifique à eux, tu doit trouver cette information des les option de ta boite mail ou des endroit comme ca.
31/10/2006, 12h11
kmaniche

Merci,

alors comment dois-je faire pour résoudre ce problème, dois-je passé par un autre ? lequel?

Merci de m'aider svp.

@+;)
31/10/2006, 12h28
pottiez

Effectivement passer par un autre est la meilleur solution si tu ne veut pas payer, il y a par exemple laposte.net, je l'utilise mais ce ne oit pas etre la meilleurs.

OK !

j'ai créer un compte chez laposte.net, j'ai utiliser le code fournie par "bakaneko" avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
InfosMail info ;
 
info.Source = "moncompte@laposte.net" ;    //Mail source
info.Cible  = "usflay@yahoo.fr";           //Mail cible
info.SMTP   = "smtp.laposte.net";        //lien SMTP
info.Login  = "moncompte";                 //login pour lien SMTP
info.Pass   = "lepass";                  //pass pour lien SMTP
info.Sujet  = "envoi du rapport KPS-5";  //sujet du mail
info.Joint  = "c:\att.txt" ;             //chemin de la pièce jointe
 
EnvoieMail(this, info, Memo1 -> Lines, true);
}

il me génére une erreure de type :[Connection Closed GraceFully]

Comment faire ?, à savoir que j'utilse un connexion internet via un réseau.

merci de m'aider svp.

31/10/2006, 20h17
Altau

Je me demande si laposte.net n'exige pas une connexion SMTP un peu plus "secure" que celle-là. Pourquoi n'utilises-tu pas le serveur SMTP de ton fournisseur d'accès ? C'est généralement la meilleure solution pour envoyer des messages.
31/10/2006, 22h42
pottiez

Citation:

Envoyé par Altau

Je me demande si laposte.net n'exige pas une connexion SMTP un peu plus "secure" que celle-là. Pourquoi n'utilises-tu pas le serveur SMTP de ton fournisseur d'accès ? C'est généralement la meilleure solution pour envoyer des messages.

Non justement, je prend la poste car c'est l'une des moins sécurisé, mais il est vrai que la boite de ton fournisseur est peut etre la meilleur solution.
11/11/2009, 12h55
kmaniche
Bonjour,

Je m'inquiète toujours pour savoir comment résoudre cette erreur :
Code:

1 2 Connection Closed GraceFully
11/11/2009, 19h20
gandf

En utilisant certains composants de la suite indy, j'ai vu qu'une exception est générée à la fin de la transaction pour indiquer si tout c'est bien passé. Et ce message indique que c'est la cas.

Il faut donc mettre l'envoie du mail dans un try et gérer la réception de l'exception dans le catch.

Je crois que c'est précisé dans la documentation d'Indy.

Bonjour,

État des lieux :
Windows XP SP3, connexion internet via réseau, Proxy Astaro.

Ce que j'ai fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
//
// PARAMETRAGE DE LA CONNEXION
//
   Screen -> Cursor = crHourGlass ;
 
  // Vérifier si la connexion est ouverte
     if(IdSMTP1 -> Connected())
        Form1 -> IdSMTP1 -> Disconnect() ;
 
  // Tentative de connexion
     if(!Form1 -> IdSMTP1 -> Connected())
        {
          // Déclaration aux composant des données de connexions.
             IdSMTP1 -> Host     = "smtp.mail.yahoo.fr" ;
             IdSMTP1 -> Port     = 465                  ;
             IdSMTP1 -> UserId   = "compte@yahoo.fr"   ;
             IdSMTP1 -> Password = "**********"       ;
 
          // Vérifier le type d'authentification
             if((IdSMTP1 -> UserId.Trim().Length() == 0) && (IdSMTP1 -> Password.Trim().Length() == 0))
                IdSMTP1 -> AuthenticationType = atNone  ;
             else
                IdSMTP1 -> AuthenticationType = atLogin ;
 
          // Connexion
             IdSMTP1 -> Connect() ;
        }

Sur ce, j'ai eu cette erreur :

Citation:

Connection Closed GraceFully

Qu'est ce que je peux faire là ??

12/11/2009, 10h23
gandf

Cette exception est levée sur quelle ligne du code ?
12/11/2009, 11h04
kmaniche
Il n'est pas précisé une ligne, même en mode pas à pas. Cependant, il est logique que ce soit sur le :
Code:

1 2 3 IdSMTP1 -> Connect() ;
12/11/2009, 20h36
gandf

Comme je le disais, c'est une exception qu'il faut gérer. En fait, le serveur distant à vu qu'il n'avait lus rien à faire et il s'est directement déconnecté.

Voici un lien en anglais qui explique ce qu'il faut faire :
http://www.swissdelphicenter.ch/en/showarticle.php?id=1

Personnellement, si ce type d'exception se déroule après avoir envoyé ou reçu toutes les données dont j'avais besoin, je l'ignore.
15/11/2009, 09h40
kmaniche

Merci pour lien, mais je n'arrive pas à me connecter ?
15/11/2009, 11h25
gandf

Tu utilises de port 465 et il me semble que la plupart des fournisseurs qui n'utilisent pas le port 25 c'est parce qu'ils utilisent le TLS pour sécurisé la connexion au smtp. Je n'ai pas la même version que toi (j'utilise C++Builder 2009) et j'ai une propriété UseTLS sur mon composant.

J'ai essayé chez moi et j'arrive a envoyer des messages (je n'ai pas essayé avec des pièces jointes). en utilisant le smtp d'orange sur le port 25.
15/11/2009, 20h06
kmaniche

Bonsoir,

Merci pour la réponse.

Au bureau j'ai la version 2009, tu peux m'envoyer ton programme (du moins la partie de l'envoi de mail) cà me serait d'un grand appui.

L'idée principale et de pouvoir transmettre un simple mail (destinataire, objet et le texte) d'un pc connecté à un réseau intranet, sur lequel il ya une connexion internet partagée avec proxy (astaro).

Merci.
15/11/2009, 20h27
gandf

Page dans l'aide de C++Builder 2009 :
ms-help://embarcadero.rs2009/Indy/frames.html?frmname=topic&frmfile=TIdSMTP_QuickSend@string@string@string@string@string.html

Code:

IdSMTP1->QuickSend("smtp.orange.fr", "Sujet du message", "recepteur@fournisseur", "envoyeur@fournisseur", "Coprs du message.");

Si ton smtp réclame une authentification, il faut préciser les propriétés Password, Username, port, UseTLS et AuthType du composant avant de se connecter.

Cette fonction ne permet pas d'envoyer une pièce jointe mais cela te permettra de vérifier que ta liaison avec le serveur smtp fonctionne.

Si cela pose encore problème, c'est surement la traversée du proxy qui bloque.

Si tu es sur une connexion d'orange, certain smtp ne réclame pas d'authentification. Si cela ne marche pas avec celui d'orange, essaie smtp.wanadoo.fr (les smtp d'orange sont uniquement accessible sur les connexions d'orange). Ainsi, on peut envoyer des messages avec l'adresse que tu veux par exemple monserveur@cestmonadresse.fr sans aucun problème.