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.