merhabalar
normal memo.text içindeki yazıyı mail gönderimde sıkıntı yok ancak
ek olarak pdf de göndermek iştiyorum bunun için nasıl bir yol izlemeliyim.
memo.text içindeki yazıyı için yazılan mail gönderme kodum:
procedure Gmail(username, password, totarget, subject, body: string);
var
DATA: TIdMessage;
SMTP: TIdSMTP;
begin
SMTP := TIdSMTP.Create(nil);
DATA := TIdMessage.Create(nil);
SMTP.Host := 'mail.sunucuadıvar.com.tr';
SMTP.Port := 587;
SMTP.username := username;
SMTP.password := password;
DATA.From.Address := username;
DATA.Recipients.EMailAddresses := totarget;
DATA.subject := subject;
DATA.body.text := body;
SMTP.Connect;
SMTP.Send(DATA);
SMTP.Disconnect;
DATA.Clear;
end;
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
mail_username := edtUSERNAME.text;
mail_password := edtpassword.text;
mail_to := edtto.text;
mail_subject := edtsubject.text;
mail_body := mmo1.text;
//mail_body := a.pdf;
Gmail(mail_username, mail_password, mail_to, mail_subject, mail_body);
ShowMessage('Mail Gönderildi...');
end;