Pozdravljeni Matjaž!
Z VBA obdelujem e-mail sporočilo tako, da ga prenesem v txt datoteko in glede na podatke v sporočilu (pripravljene z neko predlogo) uporabniku omogočam neko nadaljevanje obdelave.
Vse skupaj deluje, ko makro zaženem iz odprtega sporočila. Če pa je makro zagnan, ko je sporočilo v Outlook-u samo označeno (predogled) se makro ustavi z opozorilom, da "ActiveInspector" ni aktiven.
Tu je koda:
Dim sporocilo As Outlook.MailItem
Set sporocilo = Application.ActiveInspector.CurrentItem
sporocilo.SaveAs "C:\temp\datfrommail", olTXT
Moje vprašanje je: ali obstaja še kakšen drugi način, da bi se podatki iz sporočila prenesli v neko datoteko oz. ali se lahko izognem odpiranju sporočila?
Prenos sporočila v TXT datoteko
Pozdravljeni,
, seveda vam javi napako, če se pa sklicujete na nekaj kar ne obstaja. Sklicujete se na odprto okno (ActiveInspector), ki pa ga ni...
Če želite zapisati trenutno izbrano sporočilo v AKTIVNEM seznamu (Inbox, OutBox....) uporabite sledečo kodo:
, seveda vam javi napako, če se pa sklicujete na nekaj kar ne obstaja. Sklicujete se na odprto okno (ActiveInspector), ki pa ga ni...Če želite zapisati trenutno izbrano sporočilo v AKTIVNEM seznamu (Inbox, OutBox....) uporabite sledečo kodo:
Koda: Izberi vse
Dim sporocilo As MailItem
Set sporocilo = Application.ActiveExplorer.Selection.Item(1)
sporocilo.SaveAs "C:\temp\datfrommail", olTXT
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
