Что нового

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

GameFP

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

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

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Тестировал smtp но без результатно
Что не получилось с smtp? У меня работает уже несколько лет скрипт , отправляющий по smtp письма и вложенные файлы.
 
Автор
G

GameFP

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

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
рор не пробовал, вполне устраивает 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
 
Автор
G

GameFP

Новичок
Сообщения
11
Репутация
0
У меня smtp работает нормально, только походу с конкретным сервером проблема! Или на серваке smtp не настроен! Спасибо
 
Автор
G

GameFP

Новичок
Сообщения
11
Репутация
0
Можно пару примеров получения, удаления и т.д писем?
Буду признателен.
 

ВиталийВВ

Новичок
Сообщения
177
Репутация
0
Присоединюсь к просьбе, можно примеры для получения писем? И как их получить удаляя или не удаляя с сервера?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
GameFP, Вы писали :
Написал скрипт обрабатывающий почту с почтового сервера (pop3)
получилось прочесть письма ?С какого сервера ?
 
Автор
G

GameFP

Новичок
Сообщения
11
Репутация
0
Да, через pop3 все прекрасно работает и получаю и удаляю, но только не могу переслать! а через smtp не могу подключится, подозреваю что сервак не поддерживает.
Через pop можно отправлять письма, the bat же както это делает!
 
Автор
G

GameFP

Новичок
Сообщения
11
Репутация
0
Все из pop3.au3 Ссылку не могу вставить, но гугл знает
 

Maks1888

Новичок
Сообщения
10
Репутация
0
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

при запуске вашего скрипта со своими данными выдает такую ошибку,
Код:
"C:\Documents and Settings\????????????\??????? ????\AutoIt v3 Script.au3" (21) : ==> The requested action with this object has failed.:
$hMAIL.Send
$hMAIL^ ERROR
с чем это может быть связано?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Какой у Вас почтовый сервер ?
 

ra4o

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

Maks1888

Новичок
Сообщения
10
Репутация
0
Код:
$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

AutoIT Гуру
Сообщения
1,165
Репутация
246
Ссылка на объект "ObjCreate("CDO.Message")" создаётся ? Если я правильно понимаю - компонент Colaboration Data Objects (CDO) есть в составе Microsoft Office...
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Maks1888
smtpserver случаем не smtp.mail.ru
 
Верх