vba - Macro for saving emails from outlook - Sender name query -


so, organisation work requires all project or task related emails saved, part of formal process, in specific name format:

yymmdd-hhmm-sendername-recipientname-subject.msg

we're not allowed use .pst files reason can imagine, doing individually tedious in extreme, , lazy, decided try , automate helpful macro. intensive googling led me create following website called slipstick:

option explicit public sub savemessageasmsg()   dim omail outlook.mailitem   dim objitem object   dim spath string   dim dtdate date   dim sname string   dim enviro string   dim strfolderpath string       enviro = cstr(environ("userprofile")) strfolderpath = "desktop location here"     each objitem in activeexplorer.selection    if objitem.messageclass = "ipm.note"     set omail = objitem    sname = omail.subject   replacecharsforfilename sname, "-"    dtdate = omail.receivedtime   sname = format(dtdate, "yyyymmdd", vbusesystemdayofweek, _     vbusesystem) & format(dtdate, "-hhnn", _     vbusesystemdayofweek, vbusesystem) & "-" & sname & ".msg"    spath = strfolderpath & "\"   debug.print spath & sname   omail.saveas spath & sname, olmsg    end if   next  end sub  private sub replacecharsforfilename(sname string, _   schr string _ )   sname = replace(sname, "'", schr)   sname = replace(sname, "*", schr)   sname = replace(sname, "/", schr)   sname = replace(sname, "\", schr)   sname = replace(sname, ":", schr)   sname = replace(sname, "?", schr)   sname = replace(sname, chr(34), schr)   sname = replace(sname, "<", schr)   sname = replace(sname, ">", schr)   sname = replace(sname, "|", schr) end sub

this quite happily saves selected emails in folder on desktop (for moving on elsewhere) in format

yyyymmdd-hhmm-subject.msg

try might, however, can't seem sender's name go in there well. i've tried using

dim ssendername string

and

dim ssenderemailaddress string

with appropiate additions in part of macro creates file name:

sname = format(dtdate, "yyyymmdd", vbusesystemdayofweek, _         vbusesystem) & format(dtdate, "-hhnn", _         vbusesystemdayofweek, vbusesystem) & "-" *& bit here* & "-" & sname & ".msg

but seems add hyphen eventual filename.

note i'm not bothered adding recipient filename, more few recipeints send sailing past character limit.

so, doing wrong? i'm complete newcomer vba , have quite enjoyed little project, i'd love know i'm fouling up. in defence i'm mechanical engineer, , i'm pretty sure hitting macro hammer won't help.

i'm considering trying write produce little popup letting me fill in pertinent info before saving email, that's little way beyond me right now. gotta walk before can run.

all tips , comments gratefully received.

if using dim ssenderemailaddress string without ever setting why double hyphen - it's empty.

try including:

dim ssenderemailaddress string ssenderemailaddress = omail.senderemailaddress

before create file name this:

sname = format(dtdate, "yyyymmdd", vbusesystemdayofweek, _         vbusesystem) & format(dtdate, "-hhnn", _         vbusesystemdayofweek, vbusesystem) & "-" & ssenderemailaddress & "-" & sname & ".msg

you should able use sendername in manner if like, although you're best still run through function strip out characters.


-

Comments

Post a Comment

Popular posts from this blog

PySide and Qt Properties: Connecting signals from Python to QML -

i trying run simple pyside appliccation design made in qml. call function in qml python in separated thread. i have following qml view: import qt 4.7 rectangle { visible: true width: 100; height: 100 color: "lightgrey" text { id: datestr objectname: "datestr" x: 10 y: 10 text: "init text" font.pixelsize: 12 function updatedata(text) { datestr.text = qstr(text) console.log("you said: " + text) } } } here application: some imports.... #!/usr/bin/python import sys import time pyside import qtdeclarative, qtcore pyside.qtgui import qapplication pyside.qtdeclarative import qdeclarativeview the qthread worker.... #worker thread class worker(qtcore.qthread): updateprogress = qtcore.signal(int) def __init__(self, child): qtcore.qthread.__init__(self) self.child = child def run(self):
Read more

c# - DevExpress.Wpf.Grid.InfiniteGridSizeException was unhandled -

Image
when using devexpress, see error: devexpress.wpf.grid.infinitegridsizeexception unhandled message="by default, infinite grid height not allowed since grid rows rendered , hence grid work slowly. fix issue, should place grid container give finite height grid, or should manually specify grid's height or maxheight. note can avoid exception setting gridcontrol.allowinfinitegridsize static property true, in case grid run slowly." the problem dxgrid has infinite height. to fix, set height non-infinite. snoop absolutely invaluable this: if "height" xaml element infinite (i.e. 0 or nan ), can set using one of following: option 1: height="{binding path=actualheight, relativesource={relativesource mode=findancestor, ancestortype=uielement}}" option 2: verticalalignment="stretch" option 3: height="auto" hint: use verticalalignment="stretch" if child of grid <rowdefinition height=
Read more

scala - 'wrong top statement declaration' when using slick in IntelliJ -

Image
i'm porting project scala 2.9 2.10, therefore have use slick instead of scalaquery. i'm using slick 2.1.0 since supports ms access. according this tutorial , upgrade guide changed robs object class , added val robs : why error message wrong top statement declaration , how rid of it? edit: i'm new scala... according this question seems can't put val outside of methods or classes, right? code above directly in packge. right approach slick then? should move code in class or trait? according this changed val robs = tablequery[robs] to object robs extends tablequery(new robs(_)) {} . no warnings or errors anymore. :)
Read more