Что нового

Скрипт для проверки email

Suppir

Продвинутый
Сообщения
967
Репутация
62
Версия AutoIt: 3.

Описание:
Нужен скрипт, который будет самостоятельно (без использования outlook и т.п.) с заданной периодичностью заходить на электронный ящик и скачивать оттуда письма вместе с аттачментами. Каждое письмо должно сохраняться на диск в уникальную папку, после чего необходимо удалить это письмо из электронной почты.

Примечания:
 
Автор
S

Suppir

Продвинутый
Сообщения
967
Репутация
62
В принципе, подойдет и скрипт, который будет использовать Outlook. Самое главное - чтобы каждое письмо сохранялось на жесткий диск в определенную папку вместе с аттачментами.

Нашел какой-то скрипт на вижуал бейсике, работающий с outlook. Возможно, поможет в решении задачи:

Код:
Sub mDebug(Text) 
    Dim Debug 
      Debug = True 
      If Debug Then 
          WScript.Echo Text 
      End If 
End Sub 
 
Sub save_new() 
  On Error Resume Next 
  Dim myApp 'As Outlook.Application 
  Dim myFolder 'As Outlook.MAPIFolder 
  Set myOlApp = CreateObject("Outlook.Application") 
  Set myNameSpace = myOlApp.GetNamespace("MAPI") 
  Set myFolder = myNameSpace.GetDefaultFolder(6) '.Folders("1") 
  DestFolder = "C:\Scripts\" 
'  myFolder.Items.Sort "ReceivedTime", false 
  If myFolder.Items.Count > 0 Then 
      For i = 1 To myFolder.Items.Count 
         If (myFolder.Items(i).Attachments.Count > 0) and (myFolder.Items(i).Unread = True) Then 
              For j = 1 To myFolder.Items(i).Attachments.Count 
                mDebug(myFolder.Items(i).Subject & " " & myFolder.Items(i).CreationTime) 
                  myFolder.Items(i).Attachments.Item(j).SaveAsFile DestFolder & _ 
                    left(myFolder.Items(i).CreationTime,10) & "_" & _ 
                    myFolder.Items(i).Attachments.Item(j).DisplayName 
              Next  
          End If 
         if Err.Number <> 0 Then 
               mDebug("Error on :" & myFolder.Items(i).Subject) 
               Err.Clear 
             end if 
      Next 
  End If 
End Sub 
mDebug("Start") 
save_new() 
mDebug("Done")
 
Автор
S

Suppir

Продвинутый
Сообщения
967
Репутация
62
Нашел вот такую неплохую библиотеку:

http://www.autoitscript.com/forum/topic/89321-outlook-udf/

позволяет получать и отправлять письма через outlook.
 

XpycT

Скриптер
Сообщения
380
Репутация
132
Во вложении скрипт проверки почты без использования UDF, когда нашол на офф форуме.

И вот еще E-Mail checker
 

SECTOR

Продвинутый
Сообщения
398
Репутация
58
А вообще POP3 протокол очень прост :smile: нужно знать только TCP команды и это: POP3 - Post Office Protocol


Добавлено:
Сообщение автоматически объединено:

Ещё есть IMAP, но он сложнее... Пока не разбирался...
 
Верх