Send Multiple Files

[halilhanbadem]

Everyone, hello!

I want to tell you about an update. With this update, you will now be able to send multiple attachments. There are some rules, of course. You need to do something like this.

 //First File

    AttachFiles.Add('D:\WP.png');
    AttachFilesType.Add('image/png');
    AttachFilesID.Add('1');

    //Second File

    AttachFiles.Add('D:\deneme.txt');
    AttachFilesType.Add('text/plain');
    AttachFilesID.Add('2');

If you leave one of these three line codes blank or you never write; as a result you get such a message.

That's all you need to do to send multiple messages.

Result:

Easy codings!

[zihnimetafor]

merhaba;

Mail komponentinde ekte eklenen dosyaların isimleri yer almıyor. Sorunla ilgileniyorum çözüm bulursam paylaşacağım
Sanırım Şu Şu şekilde kullanmak daha mantıklı olacaktır.

var
i:integer;
begin
i:=0;
if OpenDialog1.Execute then
begin
i:=i+1;
mail.AttachFiles.Add(OpenDialog1.FileName);
mail.AttachFilesType.Add(GetMIMEtype(OpenDialog1.FileName));
mail.AttachFilesID.Add(IntToStr(i));
end;
end;

GetMIMEtype ile FilesType değerini otomatik olarak ekletiyorum.
Herhangi bir dosyanın MIME Type Değerini otomatik olarak alıyor.

Sanırım componentin içerisine ekleyip paylaşmak gerekiyor

[halilhanbadem]

Merhaba,
isterseniz projeyi fork edin. Kendi hesabınız üzerinden istediğiniz güncellemeyi yapabilirsiniz.
Yakın zamanda bu bileşeni güncellemek istiyorum. Eğer siz bu vesileyle katkı sağlarsanız memnun olurum.

Kısa bir zamanda ilgili sorunu çözmek ümidiyle.
Gelişmeleri takip edeceğim.

[aliyesilcicek]

Merhabalar mail göndermeye çalıştığımda SSL hatası alıyorum. (SSL neogtation failed)

yardımcı olabilir misiniz ?

[zihnimetafor]

Merhaba;

Componentin pas dosyası içerisinde Connect prosedürüne giderek

// LHandlerComponent.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvSSLv3, sslvTLSv1_1, sslvTLSv1_2];

Commentlenmiş alanı kaldırarak

LHandlerComponent.SSLOptions.Method := sslvTLSv1_2;
LHandlerComponent.SSLOptions.Mode := sslmUnassigned;
LHandlerComponent.SSLOptions.VerifyMode := [];
LHandlerComponent.SSLOptions.VerifyDepth := 0;

alanını ayarlayabilirsiniz.

[aliyesilcicek]

Bu şekilde gönderdim sanırım çalışıyor bir kaç deneme daha yapacağım. yardımlarınız için teşekkür ediyorum.

[ViniciusBairral]

The Email Component for Delphi works great, I just noticed that the attached files lose their name and file type.
Checked HHBMailSend.pas File and corrected line 252
// FileName := ExtractFilePath(FAttachFileName); Attached files do not display the name correctly
FileName := ExtractFileName(FAttachFileName);
And now the email system is perfect. How do I post the change. Send a message to vinicius.bairral@gmail.com

[halilhanbadem]

Hi ViniciusBairral,

Many thanks for your contribution! You can create a Pull Request. Thus, the change will be displayed on the repository you made.

Details: https://docs.github.com/en/pull-requests/collaborating-with-pull-requests/proposing-changes-to-your-work-with-pull-requests/creating-a-pull-request

or you can send an e-mail to me@halilhanbadem.dev

Best Regards.