automatizace v Outlooku

Miroslav Draxal evik na volny.cz
Středa Leden 5 19:43:10 CET 2011


Aha, tet na to koukám jak vrána do flasky,
Asi jsem to možná nepopsal cele, potřebuji, aby byl Outlook stále spuštěný,
jednou za 10 minut stáhl postu ze serveru, a provedl pravidlo při přijeti (
skript ). Budu za blbce ale budiž. Kam ze zapsat ten skript? Míra

-----Original Message-----
From: hw-list-bounces na list.hw.cz [mailto:hw-list-bounces na list.hw.cz] On
Behalf Of Pavel KREJCI
Sent: Wednesday, January 05, 2011 7:32 PM
To: HW-news
Subject: Re: automatizace v Outlooku

Vytvorit makro o tomto obsahu

Sub Save_attachment(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim strPath As String, strFile As String

strPath = "C:\my_tests" 'ensure it exists or put some check in place

strID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)
Set objAttachments = objMail.Attachments

lngCounter = objAttachments.Count

If lngCounter > 0 Then

'iterate the attachment object collection
For i = lngCounter To 1 Step -1

strFile = objAttachments.Item(i).FileName

strFile = strPath & strFile

Debug.Print strFile

' save the attachment file
objAttachments.Item(i).SaveAsFile strFile

Next i
End If

Set objMail = Nothing
Set objNS = Nothing
Set objAttachments = Nothing

End Sub


Spustit ho misto vlastni akce (run a script)

PK

2011/1/5 Miroslav Draxal <evik na volny.cz>:
> Dobrý den,
>
>  Neřešil někdo z Vás pravidlo do Outlooku:
>
> 1/ z adresy xxx na zzz.cz
>
> 2/ pokud obsahuje soubor
>
> 3/ tak soubor uložit do c:\xx
>
>
>
> Jak tak koukám, tak 2007 sice podporuje vlastní akci, ale to toho se musí
> doinstalovat jakási .dll 3. do které se mi fakt nechce pouštět.
>
> Je v Outlooku nějaká jiná finta, nebo toto pravidlo umí nějaký jiný mail
> klient ( který ).
>
>
>
> Díky za odpovědi. Míra
>
> __________ Informace od ESET NOD32 Antivirus, verze databaze 5762
(20110105)
> __________
>
> Tuto zpravu proveril ESET NOD32 Antivirus.
>
> http://www.eset.cz
>
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list na list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>
>
_______________________________________________
HW-list mailing list  -  sponsored by www.HW.cz
Hw-list na list.hw.cz
http://list.hw.cz/mailman/listinfo/hw-list


__________ Informace od ESET NOD32 Antivirus, verze databaze 5762 (20110105)
__________

Tuto zpravu proveril ESET NOD32 Antivirus.

http://www.eset.cz


 

__________ Informace od ESET NOD32 Antivirus, verze databaze 5762 (20110105)
__________

Tuto zpravu proveril ESET NOD32 Antivirus.

http://www.eset.cz
 



Další informace o konferenci Hw-list