Здравствуйте, хотел бы спросить как отправить письмо на почту gmail или mail,из справки почему то не работает, можете помочь дать код отправки письма? Pure Basic 5.62 (x86)
Отправка на почту
Сообщений 1 страница 6 из 6
Поделиться201.10.2020 11:40:40
из справки почему то не работает
Нужно на забыть указать логин и пароль почты.
Поделиться302.10.2020 17:46:11
Вот нашел код все вставил правильно 1 строки ящик куда нужно отправить,2 строки ящик с которого отправляется логин пароль от него, порт 587 но все равно не работает.
InitNetwork() If CreateMail(0, "homeboyweyz@mail.ru", "Hello !") SetMailBody(0, "Hello !" + #CRLF$ + "This is a multi-" + #CRLF$ + "line mail !") AddMailRecipient(0, "homeboyweyz@mail.ru", #PB_Mail_To) Result = SendMail(0, "Мой email", 587, 0, "login", "password") If Progress = #PB_Mail_Finished MessageRequester("Information", "Mail correctly sent !") Else MessageRequester("Error", "Can't sent the mail !") EndIf FreeMail(0) EndIf
Поделиться402.10.2020 19:57:18
Result = SendMail(0, "Мой email", 587, 0, "login", "password")
Result = SendMail(#Mail, Smtp$ [, Port [, Flags [, User$, Password$]]])
Smtp$ - Адрес почтового сервера используемого для отправки почтового сообщения.
Должно быть smtp.mail.ru
Поделиться502.10.2020 20:06:02
Должно быть smtp.mail.ru
InitNetwork() If CreateMail(0, "ayefasters@mail.ru", "Hello !") SetMailBody(0, "Hello !" + #CRLF$ + "This is a multi-" + #CRLF$ + "line mail !") AddMailRecipient(0, "homeboyweyz@mail.ru", #PB_Mail_To) Result = SendMail(0, "smtp.mail.ru", 465, #PB_Mail_UseSSL, "ayefasters", "444sss444") If Progress = #PB_Mail_Finished MessageRequester("Information", "Mail correctly sent !") Else MessageRequester("Error", "Can't sent the mail !") EndIf FreeMail(0) EndIf
Исправил все равно не работает
Поделиться603.10.2020 05:07:40
Почта работает.
В качестве "логина" нужно указывать "логин"@mail.ru
Но что это?
If Progress = #PB_Mail_Finished
Даже если у вас что то отправится, ваша программа вам об этом не скажет.