Discussion :

[ludojojo]

Bonjour,
J'ai parcouru la F.A.Q et le forum assez longuement et je n'ai trouvé de réponse qui me satisfasse vraiment... dans la F.A.Q j'ai trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute (Handle, "open", "mailto:adresse@provider.ex?subject=Titre_du_message&body=Corps du message", 0, 0, SW_SHOWNORMAL);

Ce la permet d'envoyer un mail mais pas de mettre une pièce jointe.
Dans mon cas c'est important
J'ai trouvé également ceci :

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
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
 
if(TIdSMTP1->Connected())
	TIdSMTP1->Disconnect();
 
if(!TIdSMTP1->Connected()){
	TIdSMTP1->Host               = "217.0.116.152";
	TIdSMTP1->Port               = 25;
	TIdSMTP1->UserId             = "???";
	TIdSMTP1->Password           = "password";
 
	if((TIdSMTP1->UserId.Trim().Length() == 0) && (TIdSMTP1->Password.Trim().Length() == 0)){
		TIdSMTP1->AuthenticationType = atNone;
	}else{
		TIdSMTP1->AuthenticationType = atLogin;
	}
 
        TIdSMTP1->Connect();
}
 
if(Form1->TIdSMTP1->Authenticate()){
	obj_TIDMessage                             = new TIdMessage(this);
	obj_TIDMessage->From->Address              = "add@mail.fr";
	obj_TIDMessage->From->Name                 = "Name";
	obj_TIDMessage->ReplyTo->EMailAddresses    = "add@mail.fr";
 
	obj_TIDRecipientList                       = new TIdEMailAddressList(obj_TIDMessage->Recipients);
	obj_TIDRecipientList->Add();
	obj_TIDRecipientList->EMailAddresses       = "add@mail.fr";
 
	obj_TIDMessage->Recipients                 = obj_TIDRecipientList;
	obj_TIDMessage->Subject                    = "Demande de mise à jour";
 
	for(int i=0; i<10; i++){
		obj_TIDMessage->Body->Add("Ligne " + String(i));
	}
 
	obj_TIDAttachment                          = new TIdAttachment(obj_TIDMessage->MessageParts, "c:\\monfichier.pdf");
	obj_TIDAttachment->ContentType             = "monfichier.pdf";
 
	TIdSMTP1->Send(obj_TIDMessage);
	obj_TIDMessage->Clear();
}else{
	ShowMessage("Erreur d'authentification");
}
 
TIdSMTP1->Disconnect();
TIdSMTP1->Free();
obj_TIDMessage->Free();

Mon problème c'est que je ne sais pas comment mettre en place ce code ci-dessus (librairie à rajouter ?)
Si quelqu'un connait un moyen d'envoyer un mail avec un texte très court, une adresse prédéfinie et une pièce jointe très petite je suis preneur.(du même style que le shell... mais avec une pièce jointe)
Merci par avance pour votre aide.

[Bily.sdi]

Slt , je pense que tu sera content

utilise 2 composants : TOpenDialogue et TNMSMTP1

Pour la connexion Connexion/Déconnexion

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
 
 
if (NMSMTP1->Connected)
 { NMSMTP1->Disconnect();
   Label9->Caption= " Déconnecter ";
 }
 else
 {
  NMSMTP1->Host = Edit1->Text;
  NMSMTP1->UserID = Edit2->Text;
  NMSMTP1->Connect();
  Label9->Caption= " Connecter";
 }
 
}

pour l'envoi de l'email

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
23
24
25

 if (NMSMTP1->Connected)
 {
  NMSMTP1->SubType = mtPlain;
  NMSMTP1->PostMessage->FromAddress = Edit3->Text;
  NMSMTP1->PostMessage->FromName = Edit5->Text;
  NMSMTP1->PostMessage->ToAddress->Text = Edit4->Text;
  NMSMTP1->PostMessage->Body->Text = Memo4->Text;

  // renvoi tout les  chemins et noms des fichiers se trouvant dans la liste
  NMSMTP1->PostMessage->Attachments->Text = ListBox1->Items->Text;

  NMSMTP1->PostMessage->Subject = Edit8->Text;
  NMSMTP1->PostMessage->LocalProgram = Edit6->Text;
  NMSMTP1->SendMail();
  ShowMessage("Message envoyez vers " + Edit4->Text);
 //====================================
 // obligatoire pour l'envoie
   NMSMTP1->Disconnect();
   Label9->Caption= " Deconnectez ";
 //====================================
 }
 else
  ShowMessage("Vous devez vous connecter avant d'envoyer votre message");

pour le code qui doit se trouver derrière le bouton permettant de sélectionner les pièces jointes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
  OpenDialog1->Execute();
 ListBox1->Items->Add(OpenDialog1->FileName);

Aucune librairie etc..

Dans Host :
tu dois mettre le nom du serveur smtp de ton fournisseur d'accès Internet

dans UserId : Ton code fournis par ton fournisseur d'accès Internet


Bonne route

[ludojojo]

merci bcp pour toutes ces information, ce code me parait vraiment excellent, cependant je reste un peut perplexe...
Apparemment ce code fait partie d'une fenêtre que tu as déjà construite. Donc qui fonctionne je suppose... Mon problème c'est que j'aimerais savoir si cela fonctionne avec hotmail? en effet quand je fait le test avec un compte hotmail je rentre ces informations la :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
if (NMSMTP1->Connected)
 {
  NMSMTP1->SubType = mtPlain;
  NMSMTP1->PostMessage->FromAddress = "monhotmail@hotmail.fr";
  NMSMTP1->PostMessage->FromName = "monhotmail";
  NMSMTP1->PostMessage->ToAddress->Text = "hotmaildestinataire@hotmail.fr";
  NMSMTP1->PostMessage->Body->Text = Memo_resultat_test->Text;
 
  // renvoi tout les  chemins et noms des fichiers se trouvant dans la liste
  NMSMTP1->PostMessage->Attachments->Text = ListBox1->Items->Text;
 
  NMSMTP1->PostMessage->Subject = "Demande de licence";
  NMSMTP1->PostMessage->LocalProgram = "???";
  NMSMTP1->SendMail();
  ShowMessage("Message envoyez vers ");
 //====================================
 // obligatoire pour l'envoie
   NMSMTP1->Disconnect();
 //====================================
 }
 else
  ShowMessage("Vous devez vous connecter avant d'envoyer votre message");
}
//---------------------------------------------------------------------------
void __fastcall TForm_test_version::NMSMTP1AttachmentNotFound(
      AnsiString Filename)
{
if (NMSMTP1->Connected)
 { NMSMTP1->Disconnect();
//   Label9->Caption= " Déconnecter ";
 }
 else
 {
  NMSMTP1->Host = "localhost";
  NMSMTP1->UserID = "monhotmail@hotmail.fr";
  NMSMTP1->Connect();

Hors lorsque je test ce code la je me retrouve avec le message d'erreur qui m'indique de me connecter.
Comment puis-je contourner ce problème? où est ce que les champs ne sont pas bien remplis??? dans quel cas si tu pouvais me donner des exemples ça serai cool, c'est la première fois que je m'occupe d'un module mail.

Merci bcp en tout cas!

[Traxsilver]

Au dernière nouvelle Micro$oft a désactivé tout fonctionnement de logiciel tier pour l'envoie d'email avec un compte hotmail. Outlook ne peut plus le faire. Et Thunderbird y arrive avec un plugin qui ne fait qu'ouvrir une page html la lire pour l'affiche dans l'interface du logiciel. Il te faudra donc une adresse qui accepte l'envoie et réception par serveur SMTP / POP3 pour utiliser ce code.

[ludojojo]

J'ai pris note de cette information.
Je me suis donc mis en tête de faire le test avec un compte free...
voici le code que je met pour la connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  NMSMTP1->Host = "smtp.free.fr";
  NMSMTP1->UserID = "l.solczynski";
  NMSMTP1->Connect();

Mais cela ne fonctionne pas.
Quelqu'un pourait il me dire pourquoi cela bloque.
Je précise, le message qui apparait c'est que je ne suis pas connecté.
Merci par avance.

[pottiez]

Il te manque le password pour pouvoir te connecter

[ludojojo]

En effet mais je n'arrive pas à trouver la fonction qui me permettrai de le rentrer.
NMSMTP1->???

[Bily.sdi]

NMSMTP1->UserID = ton password

je l'ai mis dans ce post !

[Traxsilver]

Derniére petite info, en général les serveur SMTP refuse une connection si la personne n'as pas une IP appartenant au propriétaire du serveur SMTP. Plus clairement si on as une livebox et qu'on essaye d'envoyer un mail avec un serveur free ce sera refusé. Pareil si une freebox essaye d'envoyer sur le SMTP d'orange. Il faut une connections de free pour envoyer par le smtp de free... etc

PS on peut le vérifier en tenter d'envoyer une message avec telnet.

[Bily.sdi]

c'est exact, cela permet au provider ( fournisseur d'acces Internet )

de couper la boite email de leur client qui envoi des spam !

le telnet te servira juste a tester si le serveur smtp est actif ou non

@+

[ludojojo]

Si le UserID correspond au password, dans quelle propriété se trouve le nom de connexion?
Quand on cherche à se connecter sur son webmail il faut un nom de connexion et un mot de passe...

[Traxsilver]

le telnet te servira juste a tester si le serveur smtp est actif ou non

Il peut servir aussi pour constater le message d'erreur au refus de connection. La comunication avec un serveur SMTP se fesant en ASCII telnet convient parfaitement.

[Bily.sdi]

OUI Traxsilver, j'aurai du enlever le mot JUSTE

mais il faudra commprendre le msg d'erreur !

je ne sais pas si il il renvoi un code numérique ou un vrais message ?

mais bon, il faut utiliser le serveur smtp de son fournisseur !!
@+

[ludojojo]

Re bonjour,
Je me permet de revenir sur ce post, car j'aitrouvé une solution qui pourait convenir à certains... Au lieu d'insérer une pièce jointe j'ai cherché à intégrer les données du fichiers dans le corp du text du mail... j'ai concaténé le texte que je voulais avec le reste du shellexecute...
voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
String Text = monmemo->lines->text;
String Mail =  "mailto:mail@mail.fr?subject=Information de mise à jour&body=" + Text ;
 
  ShellExecute (Handle, "open", Mail.c_str() , 0, 0, SW_SHOWNORMAL);

Voila...
Bon courage à tous