SendMail

Top  Previous  Next

Описание

Послать e-mail, возможно, с прикреплёнными (attachment) файлами.

Работает только при активном соединении с интернетом.

Синтаксис

string SendMail( integer Timeout,

                                       string AHostSMTPServer,

                                       string AUserName,

                                       string APassword,

                                       string AFrom,

                                       string ATo,

                                       string ACC,

                                       string ASubject,

                                       string ABody,

                                       bool  AAttachmentPresent,

                                       string AAttachment)

Параметры

Timeout = тайм-аут для завершения операции (ms).

AHostSMTPServer : Host SMTP-сервер.

AUserName: счёт пользователя для SMTP-сервера.

AuserPassword: пароль пользователя для идентификации на SMTP-сервере.

AFrom : почтовый адрес источника .

ATo: почтовый адрес приёмника.

ACC: destination carbon copy recipients.

ASubject: тема сообщения.

ABody: тело сообщения.

AAttachmentPresent: если true, то послать с вложениями.

Aattachment: полное имя файла вложения.

Возвращаемое значение

Если нет ошибок возвращается пустая строка, иначе возвращается сообщение об ошибке с описанием ошибки.

Связанные функции

Пример

Function void SendMailDemo()

//*****************************************************************************

// Send Mail demo procedure

//*****************************************************************************

  string Ritorno;

  bool AttachmentPresent;

  if (GetDigGateValue("AttachmentPresent",0)==1) then

      AttachmentPresent=true;

  else

      AttachmentPresent=false;

  end

  Ritorno=SendMail(GetNumGateValue("MailTimeout",0),

                   GetStrGateValue("HostSMTPServer",0),

                   GetStrGateValue("UserName",0),

                   GetStrGateValue("UserPassword",0),

                   GetStrGateValue("AddressFrom",0),

                   GetStrGateValue("AddressTo",0),

                   GetStrGateValue("AddressCC",0),

                   GetStrGateValue("MailSubject",0),

                   GetStrGateValue("MailBody",0),

                   AttachmentPresent,

                   GetStrGateValue("MailAttachment",0));

  if Ritorno=="" then

      MessageBox("Operation completed","Send Mail");

  else

      MessageBox(Ritorno,"Send Mail");

  end

end