Данная библиотека предназначена для отправки почты на E-Mail, в т. ч. и с вложенными файлами. Пример отправки письма на мейл
MySMTPServer.s
= "smtp.mail.ru"
MySMTPPort.l
= 25 ; 587
If
PureSMTP_OpenSMTPConnection(MySMTPServer, MySMTPPort) = #PureSMTP_Ok
Debug PureSMTP_GetLastServerMessage()
; sending mail
PureSMTP_SetContentType("text/html;
charset=windows-1251")
Status.l =
PureSMTP_SendMail("Vsevolod-s10@mail.ru",
"Vsevolod-s10@mail.ru", "Тема письма","Текст письма","",
"Vsevolod-s10","7391852s", "Content-Type: text/html;
charset=windows-1251")
If Status = #PureSMTP_Ok
Debug "Message : sent"
Debug "Status = " + Str(Status)
Else
Debug "Message : something went
wrong !"
Debug "Status = " + Str(Status)
Debug PureSMTP_GetLastServerMessage()
EndIf
PureSMTP_CloseSMTPConnection()
Else
Debug "OpenSMTPConnection failed"
Debug PureSMTP_GetLastServerMessage()
EndIf
Список функций.
PureSMTP_SkipInitNetwork PureSMTP_OpenPOP3ThenSMTPConnection PureSMTP_OpenSMTPConnection PureSMTP_SendMail PureSMTP_CloseSMTPConnection PureSMTP_GetLastServerMessage PureSMTP_SetTimeOut PureSMTP_SetContentType PureSMTP_SetXMailer PureSMTP_SetBoundary PureSMTP_AddHeader PureSMTP_ClearHeader PureSMTP_POP3Messages PureSMTP_SetAttachmentCallback
|