L'envoie d'un email qui ne reagi pas... [Résolu]

Signaler
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015
-
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015
-
Bonjour!

Je voudrai bien qu'à partir de mon bouton que j'arrive à envoyer un email à une adresse precise. Mais ça ne marche pas.

shellExecute(Handle,'Open','fournisseur@hotmail.com',PChar(tButton),nil,nil,SW_HIDE);


Developper est une dimension pour moi.
Leader2000

4 réponses

Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
salut!!
implementation
 uses ShellApi ;
{$R *.dfm}
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0,'OPEN','mailto:fournisseur@hotmail.com',nil,nil,SW_SHOW);
end;



@+
Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1
salut!!!

ShellExecute(0, 'OPEN', 'mailto:fournisseur@hotmail.com',nil,nil,SW_SHOW);




@+
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015

@walidlam
j'ai essayé cette ligne de codes mais quand je l'execute il se plante et mon curseur se place juste après le "shellExecute".
Je ne sais pas ce qui s'passe.

shellExecute(Handle,'Open','mailto:fournisseur@hotmail.com',PChar(tButton),nil,nil,SW_HIDE);



Developper est une dimension pour moi.
Leader2000
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015

Merci, c'est excellent!

Developper est une dimension pour moi.
Leader2000