1 . 2 . 3 . 4 . 5 . 6

Пишем программу почтовой рассылки

strcpy(s,ss);
if (i==1)
{sprintf(s2,"%s %s",s1,s) ;Edit10->Text=s2;
Memo1->Lines->Strings[4]=s; goto l1;}
 if (i==2) {Memo1->Lines->Strings[5]=s;
n=strlen(s); flag=0; int jj=0;
for(j=0;jText="";
Edit7->Text=email; goto l1;}
if (i==3) {Memo1->Lines->Strings[6]=s; goto l1; };
if (i==4){Memo1->Lines->Strings[7]=s; goto l1; };
if (i==5){Memo1->Lines->Strings[8]=s; goto l1; };
if (i==6) Memo1->Lines->Strings[9]=s;
i=0; NMSMTP1->PostMessage->FromAddress = Edit6->Text;
NMSMTP1->PostMessage->FromName = Edit5->Text;
NMSMTP1->PostMessage->Subject = Edit10->Text;
NMSMTP1->PostMessage->ToAddress->Add(Edit7->Text);
NMSMTP1->PostMessage->Attachments->AddStrings(ListBox1->Items);
NMSMTP1->PostMessage->Body->Assign(Memo1->Lines);
NMSMTP1->SendMail();   for(j=0;j<50;j++) email[j]='\0';   goto l1;
l2:;  if (NMSMTP1->Connected)
NMSMTP1->Disconnect();
status->Caption="Рассылка завершена!";
fclose(in);}

Текст программы рекомендую посмотреть полностью, а не только приведенный выше фрагмент, отвечающий за внесение изменений в трафарет письма и его отправку. Конечно, некоторые конструкции приведенного выше фрагмента можно организовать более изящно и рационально, но я предпочел сделать их максимально простыми. Концепция структурного и объектно-ориентированного программирования предполагает полный отказ от оператора goto. Можно было бы его не использовать вовсе, но тогда сократится не только размер фрагмента, но и число читателей, понимающих, как он работает.

Подводя итоги, отмечу, что я не ставил целью научить читателей программированию, а хотел показать, что разработать простую и удобную программу рассылки электронной почты, обладая минимальными знаниями в области программирования и готовым примером, очень просто. И, как вы видели, программы для рассылки сообщений можно использовать не только для рассылки спама, но и для того, чтобы сделать работу пользователей в Сети максимально удобной и эффективной.