AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 13:11:54
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Mail [ Réseau & Internet / Autre ] (kopierreko)

mardi 24 juin 2008 à 16:21:40 | Mail

kopierreko
Bonjour,
Aujourd'hui, je vous demande comment envoyer un e-mail via delphi.
Le but est d'envoyer un email dont le texte sera contenu dans un Memo => Memo1.
Comment fa   ire ?
Merci
mardi 24 juin 2008 à 17:04:03 | Re : Mail

cirec

Membre Club Administrateur CodeS-SourceS
Salut,

Comment faire ? ... c'est très simple ... il suffit de faire une recherche sur le site et/où avec Google et des réponses tu trouvras.

 
@+
Cirec
mardi 24 juin 2008 à 22:31:46 | Re : Mail

kopierreko
J'ai testé mais les techniques ne marchent pas >< je ne reçoit jamais le mail.
Merci
mercredi 25 juin 2008 à 14:40:27 | Re : Mail

MAURICIO
Salut,
Utilises les composants Indy10 + démo sur leur site:
www.indyproject.org

A+
mercredi 25 juin 2008 à 18:48:38 | Re : Mail

kopierreko
ben j'ai fais plusieurs tests e à chaque fois le même message:

Connection Closed Gracefull !

Et jamais rien dans la boite ...
Je ne sais pas quoi faire .
Merci
mercredi 25 juin 2008 à 18:55:55 | Re : Mail

MAURICIO
Bem commence par lire le manuel de Indy, ça va t' aider ...
mercredi 25 juin 2008 à 19:01:47 | Re : Mail

kopierreko
j'ai même pris un exemple et adapté le code à mon programme et ça fait exactement pareil.

procedure TForm1.coClick(Sender: TObject);
begin
Memo1.text:='Message n°1: ' + ms1.Text + ' Message n°2: ' +ms2.text;

//******************************
// Confection du message
//******************************
If messagedlg('envoyez le message ?',mtConfirmation,[mbyes,MbNo],0) = Mrno then exit;

// Assignation du memo au corps du message
IdMessage1.SetBody(Memo1.Lines);

// Definition du niveau de priorité
IdMessage1.Priority := mpHighest;

// Adresse de l'emetteur du message
IdMessage1.From.Address := 'pk64@ymail.com';

// Sujet du message

IdMessage1.Subject := 'MSN Messenger';


// Destinataire du message
IdMessage1.Recipients.EMailAddresses := Memo1.Text; // Tedit

IdMessage1.ReceiptRecipient.Address := 'kopierreko@gmail.com';



//******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.Username := 'psproduction@ton-hebergement-gratuit.com';
IdSMTP1.Host := 'smtp.ton-hebergement-gratuit.com';
IdSMTP1.Password := '****';

// Poster
Try
IdSMTP1.Connect(300);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;

Un idée ?
Merci
jeudi 26 juin 2008 à 09:26:49 | Re : Mail

kopierreko
Bpn j'ai refait un essai avec ce tuto => http://www.delphifr.com/code.aspx?ID=12411
Et toujours le même message
"Connection Closed Graceful !!"

Code:
procedure TForm1.coClick(Sender: TObject);
begin
Memo1.text:='Message n°1: ' + ms1.Text + ' Message n°2: ' +ms2.text;


//******************************
// Confection du message
//******************************

// Assignation du memo au corps du message
IdMessage1.Body.Assign(Memo1.Lines);

// Definition du niveau de priorité
IdMessage1.Priority := mpHighest;

// Adresse de l'emetteur du message
IdMessage1.From.Text := 'kopierreko@gmail.com';

// Sujet du message

IdMessage1.Subject := 'MSN Messenger';


// Destinataire du message
IdMessage1.Recipients.EMailAddresses := 'kopierreko@gmail.com'; // Tedit


//******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.AuthenticationType := atNone; // pas d'autentification


// Poster
Try
IdSMTP1.Connect(-1);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;

Merci
jeudi 26 juin 2008 à 10:41:38 | Re : Mail

jlen100

Membre Club
salut
es -tu bien sur de l'adresse du serveur SMTP?
 pour GMAIL  c'est:
Serveur SMTP : smtp.gmail.com
JLen

jeudi 26 juin 2008 à 11:54:00 | Re : Mail

kopierreko
Tourjours pareil: "Connection Closed Gracefully !!"

With IdMessage1 do
   Begin
   Memo1.Text:='Mes1 ' + mes1.Text + ' mes2: ' + mes2.text;
   From.Text:='Cible';
   Recipients.EMailAddresses:='kopierreko@gmail.com';
   Subject :='aucun';
   Body.Assign(Memo1.Lines);
   End;
With IdSMTP1 do
   Begin
   //******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.Username := 'kopierreko@gmail.com';
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.Password := '*****';

// Poster
Try
IdSMTP1.Connect(-1);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;
   End;

Une idée ?
Merci quand même

1 2

Cette discussion est classé dans : mail, envoyer

Répondre à ce message

Sujets en rapport avec ce message

Comment envoyer le contenu d'une form par mail? [ par Youyou0214 ] Imaginons que je fasse un logiciel ou l'utilisateur doit s'incrir pour acceder au logiciel. il s inscrit et j aimerai le resultat de l inscription me Envoyer un mail [ par erijeux ] Salut,j'aimerais envoyer un mail avec outlook avec une piece jointe(voir plus)QUe dois-je faire.j'utilise actuellement cette fontion :ShellExecute(han Comment envoyer un fichier DBISAM par mail via un bouton ? [ par Zangdar ] cf : voir titre Envoyer des pièces jointes dans un mail (NMSMTP) [ par josserand ] Salut amis prog !!Si quelqu'un pouvait m'aider...Je suis en train de créer une application pour envoyer des mails avec des pièces jointes.Je ne sais p Envoyer Mail + progression de l'envoi dans un TGauge, comment faire ? [ par TheBOdybOarDMaN ] Salut a toutes et a tous.Donc voila dan mon petit prog je cherche a envoyer un email et montrer son avancement dans une gauge mais le probleme c comme Pb d'envoi de mail [ par blamme ] Bonjour,Je fait un prog qui doit envoyer un message avec outlook.Il doit prendre le contenu de plusieur edit et les mettre dans le corp du message.J'u envoyer un mail avec un contenu html [ par yvescollet ] (Re)bonjour, Je voudrais savoir comment envoyer un mail (mailitem p.ex) avec un contenu html qui soit traduit comme dans un browser. Ce n'est pas un envoyer un mail [ par Maniaxman ] salut, est-il possible, au lieu d'envoyer un mail en utilisant le serveur smtp, d'envoyer un mail en utilisant un fichier php sur un serveur ?? si ou envoyer mail avec delphi [ par Maniaxman ] Salut, J'aimerais créer un programme qui envoie un mail avec delphi, mais qui n'utilise pas de serveur smtp, de façon a ne pas avoir de : smtp.wanado Erreur IdSMTP [ par couf ] Bonjour à Tous, Voila je suis entrain de m'arracher les cheveux à propos d'un problème dont je ne vois pas la solution.J'écris un programme qui dois e


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.