[Автоматизация] Переслать письмо pop3

[GameFP]

Доброго времени суток!
Написал скрипт обрабатывающий почту с почтового сервера (pop3) и возникла необходимость при определенных условиях пересылать письмо на другой адрес. Возможно ли это через pop?
Тестировал smtp но без результатно

Заранее блаодарю!

 

[ra4o]

Тестировал smtp но без результатно

Что не получилось с smtp? У меня работает уже несколько лет скрипт , отправляющий по smtp письма и вложенные файлы.

 

[GameFP]

Да не понятно что с smtp. Не знаю через pop без проблем подключаюсь а через smtp не могу. Я вот думаю почтовый сервак настроен корректно или нет. А через pop без вариантов переслать письмо?

 

[ra4o]

рор не пробовал, вполне устраивает smtp для отправки, вот, например попробуйте для проверки :

Спойлер

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate("CDO.Message")

With $hMAIL
	.From = "мой адрес@inbox.ru"
	.To = "адрес получателя"
	.Subject = "Тема письма"
	.TextBody = "Текст письма"
	.AddAttachment("Путь к файлу для отправки") ;файл для отправки
EndWith
With $hMAIL.Configuration.Fields
	.Item($str & "sendusing") = 2
	.Item($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
	.Item($str & "smtpusessl") = True
	.Item($str & "smtpauthenticate") = 1
	.Item($str & "sendusername") = "мой адрес@inbox.ru"
	.Item($str & "sendpassword") = "Пароль почты" ;Пароль SMTP-сервер
	.Item($str & "smtpserverport") = 465;Порт
	.Update
EndWith
$hMAIL.Send

 

[GameFP]

У меня smtp работает нормально, только походу с конкретным сервером проблема! Или на серваке smtp не настроен! Спасибо

 

[ra4o]

А через pop без вариантов переслать письмо?

Могу ошибаться, но рор протокол по-моему только для чтения писем...

 

[GameFP]

Можно пару примеров получения, удаления и т.д писем?
Буду признателен.

 

[ВиталийВВ]

Присоединюсь к просьбе, можно примеры для получения писем? И как их получить удаляя или не удаляя с сервера?

 

[ra4o]

GameFP, Вы писали :

Написал скрипт обрабатывающий почту с почтового сервера (pop3)

получилось прочесть письма ?С какого сервера ?

 

[GameFP]

Да, через pop3 все прекрасно работает и получаю и удаляю, но только не могу переслать! а через smtp не могу подключится, подозреваю что сервак не поддерживает.
Через pop можно отправлять письма, the bat же както это делает!

 

[ra4o]

Да, через pop3 все прекрасно работает и получаю и удаляю

Пример подключения и получения по рор3 можете показать ?

 

[GameFP]

Все из pop3.au3 Ссылку не могу вставить, но гугл знает

 

[Maks1888]

рор не пробовал, вполне устраивает smtp для отправки, вот, например попробуйте для проверки :

Спойлер

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate("CDO.Message")

With $hMAIL
	.From = "мой адрес@inbox.ru"
	.To = "адрес получателя"
	.Subject = "Тема письма"
	.TextBody = "Текст письма"
	.AddAttachment("Путь к файлу для отправки") ;файл для отправки
EndWith
With $hMAIL.Configuration.Fields
	.Item($str & "sendusing") = 2
	.Item($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
	.Item($str & "smtpusessl") = True
	.Item($str & "smtpauthenticate") = 1
	.Item($str & "sendusername") = "мой адрес@inbox.ru"
	.Item($str & "sendpassword") = "Пароль почты" ;Пароль SMTP-сервер
	.Item($str & "smtpserverport") = 465;Порт
	.Update
EndWith
$hMAIL.Send

при запуске вашего скрипта со своими данными выдает такую ошибку,

"C:\Documents and Settings\????????????\??????? ????\AutoIt v3 Script.au3" (21) : ==> The requested action with this object has failed.:
$hMAIL.Send
$hMAIL^ ERROR

с чем это может быть связано?

 

[ra4o]

Какой у Вас почтовый сервер ?

 

[Maks1888]

smtp.inbox.ru как я понимаю

 

[ra4o]

Адрес исходящего почтовика после собаки @inbox.ru ? Если такой , то с ним всё работает - каждый день пересылаю почту - всё ОК !
Подставьте в пример выше свои адреса и пароли, больше ничего менять не нужно.

 

[Maks1888]

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate("CDO.Message")

With $hMAIL
    .From = "[email protected]"
    .To = "[email protected]"
    .Subject = "Тема письма"
    .TextBody = "Текст письма"
EndWith
With $hMAIL.Configuration.Fields
    .Item($str & "sendusing") = 2
    .Item($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
    .Item($str & "smtpusessl") = True
    .Item($str & "smtpauthenticate") = 1
    .Item($str & "sendusername") = "[email protected]"
    .Item($str & "sendpassword") = "rfvyhn1234" ;Пароль SMTP-сервер
    .Item($str & "smtpserverport") = 465;Порт
    .Update
EndWith
$hMAIL.Send

вот целиком скрипт, ошибка всегда одна и та же ( требуемое действие с этим объектом невозможно )

"C:\Documents and Settings\????????????\??????? ????\AutoIt v3 Script.au3" (21) : ==> The requested action with this object has failed.:
$hMAIL.Send
$hMAIL^ ERROR

 

[ra4o]

Ссылка на объект "ObjCreate("CDO.Message")" создаётся ? Если я правильно понимаю - компонент Colaboration Data Objects (CDO) есть в составе Microsoft Office...

 

[Garrett]

Maks1888
smtpserver случаем не smtp.mail.ru

 

[ra4o]

Если исходящая почта [email protected], то smtp сервер smtp.inbox.ru