Multiple email addresses? How to

[Przemyslav]

Hello everybody. I have problem with my program. My program send emails with attachments to multiple email addresses. Emails I have in code -->  Mail.Receivers.Add...

Code: Pascal  [Select][+][-]

1. Mail := TSendMail.Create;
2.  
3.   try
4.       Mail.Sender := '*************' <'*************'>;
5.       Mail.Receivers.Add('firstemail@gmail.com');
6.       Mail.Receivers.Add('secondemail@gmail.com');
7.       Mail.Subject := 'Hello';
8.       Mail.Message.Add('How are you');
9.       Mail.Smtp.UserName := '*************';
10.       Mail.Smtp.Password := '*************';
11.       Mail.Smtp.Host := 'smtp.gmail.com';
12.       Mail.Smtp.Port := '587';
13.       //Mail.Smtp.SSL := True;
14.       mail.Smtp.FullSSL:=false;
15.       Mail.Smtp.TLS := True;
16.       Mail.Send;
17.       ShowMessage('SUCCESS :) ');
18.     finally
19.       Mail.Free;
20.     end;

But I would like to have Edit component where I could write multiple email addresses separated with for example comma or semicolon: firstemail@gmail.com; secondemail@gmail.com; ...

Something like in attachment.

But I don't now how to copy separated email addresses from Edit to section Mail.Receivers.Add in my code with comma or semicolon and send to these receivers.

Thank you very much

[jamie]

The most practice way would be to decompose the string.

For example, Use the function POS which will return return the first ";" it finds

this will give you an index.

Use the "LeftStr" function or Copy to another string, this will be the first one in the list..

you then add it to your other list.

Delete this string from the current composite string including the ";" and repeat the cycle

if it comes to a point where POS does not find a ";" then test the final results of this string and use that one
for the final.

 it could be that you only enter one and POS will not find the ";" so at this point it is the final string.
----

 Another way is to list a loop and control a string from the master until you hit the end of the master string or
a ";"
WorkString := '';
For I := 1 to Length(MasterString) do
 Begin
   If MasterString[ I ] <> ';' Then Workstring := Workstring+MasterString[ I ] else
     If WorkString <> '' Then
     begin
       Mail.AddToMYList(WorkString);
       WorkString := '';
     End;
 if WorkString <> '' Then Mail.AddToMyList(WorkString);

I think you get the idea.

P.S.
 You can also use a TstringList and set the Linebreak character which would be ";" and if I understand that
correctly it should beak the line up when you assign the test..
Stringlist.LineBreal := ';';

StringList.Assign(MasterString);

now the Items should be separated, maybe 

[Leledumbo]

TSendMail.Receivers is a TStrings descendant, TStringList is also a TStrings descendant. TStringList can be set to use Delimiter (, or ;, you choose), preferably with StrictDelimiter to true but it depends on you as well whether you want to allow whitespaces or not, then just assign that delimiter separated long string of email addresses to DelimitedText property. You can then simply call TSendMail.Receivers.Assign(ThatTStringListInstanceWhoseDelimitedTextPropertyYouJustAssign), done.

[Przemyslav]

Because I'm so stupid I can't do this. I tried with my example e-mails:

Code: Pascal  [Select][+][-]

1. joe@gmail.com;fred@gmail.com;mary@gmail.com

and delimiter but it's to hard for me

Thanks you for your help.

.......

I have to try this:

Code: Pascal  [Select][+][-]

1. Mail.Receivers.Add('to=dest1@host.com;dest2@host.com');
2.  

[CCRDude]

Using delimiters is not that complicated; here's the three important properties:

Code: Pascal  [Select][+][-]

1. Mail.Receivers.StrictDelimiter := true;
2. Mail.Receivers.Delimiter := ';';
3. Mail.Receivers.DelimitedText := 'joe@gmail.com;fred@gmail.com;mary@gmail.com';

[Przemyslav]

OK, now I get this. I try to make list in txt file and import to String Thanks

[mangakissa]

No, you don't. the mailadresses can be used as an variable. If you have an editbox with several adresses you can use this

Code: Pascal  [Select][+][-]

1. Mail.Receivers.DelimitedText := Editbox.txt

[Leledumbo]

No, you don't. the mailadresses can be used as an variable. If you have an editbox with several adresses you can use this

Code: Pascal  [Select][+][-]

1. Mail.Receivers.DelimitedText := Editbox.txt

Ah, didn't realize DelimitedText is part of TStrings instead of TStringList.