envoi de mail avec pièce jointe

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : envoi de mail avec pièce jointe

tantemerde

c'est pas faux

Bonjour,

Je dois migrer une vieille appli en Delphi 2009, donc l'envoi de mail se fait via les composants Indy.
Mon mail part bien, et la pièce jointe aussi, mais il me reste 2 problèmes :
- le texte n'utilise pas le charset que je précise
- la pièce jointe n'utilise pas le filename que je précise
du coup je me retrouve avec un mail sans accents et une pièce jointe 'fdsbhjsk.dat' au lieu du nom de l'image.

voici le code :

Code :

procedure TF_MAIL_TO.btnEnvoyerClick(Sender: TObject);
var
i: Integer;
myMessage: TIdMessage;
myText: TIdText;
myAttachment: TIdAttachment;
begin
{Paramètres serveur SMTP}
mySMTP.ConnectTimeout := 2000;
mySMTP.Host := 'A320';
mySMTP.Username := 'XXXXXX';
mySMTP.Port := 25;
{Préparation du message}
myMessage := TIdMessage.Create(nil);
try
myMessage.Encoding := meMIME;
myMessage.ContentType := 'multipart/mixed';
myMessage.From.Address := FormInit.CurrentUser.EMail;
myMessage.From.Text := 'OTC';
myMessage.ReplyTo.EMailAddresses := FormInit.CurrentUser.EMail;
myMessage.Recipients.Add.Address := edtA.Text;
myMessage.CCList.Clear;
myMessage.CCList.Add.Address := edtcc.Text;
myMessage.BCCList.Clear;
myMessage.Subject := edtObjet.Text;
myMessage.UseNowForDate := true;
{Ajout du texte}
myText := TIdText.Create(myMessage.MessageParts);
myText.Body.Assign(FTexteMail);
myText.ContentType := 'text/plain';
myText.CharSet := 'ISO-8859-1';
myText.ContentTransfer := '8bit';
{Ajout de la pièce jointe}
for i := 0 to FListImage.Count-1 do
if (FileExists(FListImage.Strings[i])) then
begin
myAttachment := TIdAttachmentFile.Create(myMessage.MessageParts,FListImage.Strings[i]);
myAttachment.ContentType := 'image/jpeg';
myAttachment.ContentDisposition := 'attachment';
myAttachment.FileName := ExtractFileName(FListImage.Strings[i]);
end;
{Envoi du mail}
try
mySMTP.Connect;
except
MessageDlg('Impossible de se connecter au serveur mail. E-mail non envoyé à ' + edtA.Text + ' !', mtError, [mbOK], 0);
ModalResult := mrCancel;
end;
mySMTP.Send(myMessage);
mySMTP.Disconnect;
finally
myMessage.Free;
Close;
end;
end;

Si quelqu'un a une idée pour résoudre mon problème ça serait bien cool [:benjiman]

Publicité

tantemerde

c'est pas faux

bon, pour le problème du charset, je n'ai toujours pas trouvé ce qui clochait, j'ai donc adopté une solution alternative.
j'envoie les mails au format html, et je remplace tous les caractères accentués par leur code html avant l'envoi (é etc...)
ça fonctionne, mais bon c'est pas cool pour les clients qui ne peuvent pas lire les mails en html

en revanche, toujours pas de soluce pour le nom de la pièce jointe

rengzehn

# for i := 0 to FListImage.Count-1 do
# if (FileExists(FListImage.Strings[i])) then
# begin
# myAttachment := TIdAttachmentFile.Create(myMessage.MessageParts,FListImage.Strings[i]);
# myAttachment.ContentType := 'image/jpeg';
# myAttachment.ContentDisposition := 'attachment';
# myAttachment.FileName := ExtractFileName(FListImage.Strings[i]);
# end;

y'a pas un prob de compteur là si la liste est vide ?

tantemerde

c'est pas faux

non, si la liste est vide on n'entre pas dans la boucle.

FORUM HardWare.fr

Programmation

Delphi/Pascal

envoi de mail avec pièce jointe

Sujets relatifs
envoi d'un mail	javascript envoi mail avec pièce jointe
envoi mail php pièce jointe a plusieurs destinataires	ajouter une piéce jointe et automatisé l'envoi d'un mail sur access
Problème d'envoi de mail avec pièce jointe	PHP : problème d'envoi de mail + piece jointe sur Wanadoo
envoi de mail html avec piece jointe	Envoi mail html/txt + piece jointe
envoi de mail avec piece jointe sous vc++	Envoi mail avec piece jointe
Plus de sujets relatifs à : envoi de mail avec pièce jointe

Page générée en 0.057 secondes