PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Отправка на почту


Отправка на почту

Сообщений 1 страница 6 из 6

1

Здравствуйте, хотел бы спросить как отправить письмо на почту gmail или mail,из справки почему то не работает, можете помочь дать код отправки письма? Pure Basic 5.62 (x86)

0

2

Weyz написал(а):

из справки почему то не работает

Нужно на забыть указать логин и пароль почты.

0

3

Вот нашел код все вставил правильно 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

0

4

Weyz написал(а):

Result = SendMail(0, "Мой email", 587, 0, "login", "password")

Result = SendMail(#Mail, Smtp$ [, Port [, Flags [, User$, Password$]]])

Smtp$ - Адрес почтового сервера используемого для отправки почтового сообщения.

Должно быть smtp.mail.ru

0

5

Пётр написал(а):

Должно быть 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

Исправил все равно не работает

0

6

Почта работает.
В качестве "логина" нужно указывать "логин"@mail.ru

Но что это?

Код:
If Progress = #PB_Mail_Finished 

Даже если у вас что то отправится, ваша программа вам об этом не скажет.

0


Вы здесь » PureBasic - форум » Вопросы по PureBasic » Отправка на почту