vba - Save Outlook attachment to disk -



vba - Save Outlook attachment to disk -

i found numerous examples of vba scripts automatically move attachments hard drive. 1 i've found online works when run macro in outlook is, not work when set rule.

when run macro without "item outlook.mailitem" parameter in sub header , have email containing file want saved selected, function properly.

however, add together info can run rule, outlook throws error , disables rule.

option explicit public sub moveattachmentsalpha(item outlook.mailitem) dim objol outlook.application dim objmsg outlook.mailitem 'object dim objattachments outlook.attachments dim objselection outlook.selection dim long dim lngcount long dim strfile string dim strfolderpath string dim strdeletedfiles string ' path documents folder strfolderpath = "c:\dailyflash\" on error resume next ' instantiate outlook application object. set objol = createobject("outlook.application") ' collection of selected objects. set objselection = objol.activeexplorer.selection ' check each selected item attachments. if attachments exist, ' save them strfolderpath folder , strip them item. each objmsg in objselection ' code strips attachments mail service items. ' if objmsg.class=olmail ' attachments collection of item. set objattachments = objmsg.attachments lngcount = objattachments.count strdeletedfiles = "" if lngcount > 0 ' need utilize count downwards loop removing items ' collection. otherwise, loop counter gets ' confused , every other item removed. = lngcount 1 step -1 ' save attachment before deleting item. ' file name. strfile = objattachments.item(i).filename ' combine path temp folder. strfile = strfolderpath & strfile ' save attachment file. objattachments.item(i).saveasfile strfile 'write save path string add together message 'check html , utilize html tags in link if objmsg.bodyformat <> olformathtml strdeletedfiles = strdeletedfiles & vbcrlf & "<file://" & strfile & ">" else strdeletedfiles = strdeletedfiles & "<br>" & "<a href='file://" & _ strfile & "'>" & strfile & "</a>" end if 'use msgbox command troubleshoot. remove final code. 'msgbox strdeletedfiles next ' adds filename string message body , save ' check html body if objmsg.bodyformat <> olformathtml objmsg.body = vbcrlf & "the file(s) saved " & strdeletedfiles & vbcrlf & objmsg.body else objmsg.htmlbody = "<p>" & "the file(s) saved " & strdeletedfiles & "</p>" & objmsg.htmlbody end if objmsg.save end if next exitsub: set objattachments = nil set objmsg = nil set objselection = nil set objol = nil end sub

keep of script. remove reference outlook.selection , loop associated it. then, in it's place, assign item objmsg allow rest of of script function normal. after testing have decided steal , utilize myself well.

public sub moveattachmentsalpha(item outlook.mailitem) dim objmsg outlook.mailitem 'object dim objattachments outlook.attachments dim long dim lngcount long dim strfile string dim strfolderpath string dim strdeletedfiles string ' path documents folder strfolderpath = "c:\temp\" on error resume next set objmsg = item ' code strips attachments mail service items. ' if objmsg.class=olmail ' attachments collection of item. set objattachments = objmsg.attachments lngcount = objattachments.count strdeletedfiles = "" if lngcount > 0 ' need utilize count downwards loop removing items ' collection. otherwise, loop counter gets ' confused , every other item removed. = lngcount 1 step -1 ' save attachment before deleting item. ' file name. strfile = objattachments.item(i).filename ' combine path temp folder. strfile = strfolderpath & strfile ' save attachment file. objattachments.item(i).saveasfile strfile 'write save path string add together message 'check html , utilize html tags in link if objmsg.bodyformat <> olformathtml strdeletedfiles = strdeletedfiles & vbcrlf & "<file://" & strfile & ">" else strdeletedfiles = strdeletedfiles & "<br>" & "<a href='file://" & _ strfile & "'>" & strfile & "</a>" end if next ' adds filename string message body , save ' check html body if objmsg.bodyformat <> olformathtml objmsg.body = vbcrlf & "the file(s) saved " & strdeletedfiles & vbcrlf & objmsg.body else objmsg.htmlbody = "<p>" & "the file(s) saved " & strdeletedfiles & "</p>" & objmsg.htmlbody end if objmsg.save end if exitsub: set objattachments = nil set objmsg = nil set objselection = nil set objol = nil end sub

fyi: changed nil after line ' code strips attachments mail service items. except next

vba outlook

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more