visual studio 2010 - Get data from Outlook to Database -
my project send fields before visual studio outlook body in fields entered in body after reception of messages user can modify data sent in text fields on outlook , sends update data saved in database that's possible update data outlook database ?
i have build solution that, use daily read , file mail part of daily workflow. others have hinted need specific need with.
if (typeof olitem outlook.mailitem) dim olmailitem outlook.mailitem = trycast(olitem, outlook.mailitem) if olmailitem.permission = outlook.olpermission.olunrestricted strbody = olmailitem.htmlbody 'file:///c:/attsave/header.png else strbody = "rights protected fix if i'm not in debugger" end if each olattach in olmailitem.attachments if olattach.type <> outlook.olattachmenttype.olole olattach.saveasfile("c:\attsave\" & olattach.filename) 'strbody = strbody.replace("cid:header", "file:///c:/attsave/header.png") strcid = olattach.propertyaccessor.getproperty("http://schemas.microsoft.com/mapi/proptag/0x3712001e") if strcid <> "" strbody = strbody.replace("cid:" & strcid, "file:///c:/attsave/" & system.web.httputility.urlencode(olattach.filename)) end if lst_attach.items.add(olattach.filename) else msgbox("open 1 via outlook") end if next me.webbody.documenttext = strbody me.txtsubject.text = olmailitem.subject if olmailitem.importance = outlook.olimportance.olimportancehigh me.txtsubject.forecolor = color.red else me.txtsubject.forecolor = color.white end if 'dim palsender microsoft.office.interop.outlook.addressentry 'palsender = mailitem.sender me.txtsentdate.text = olmailitem.senton 'me.txtto.text = olmailitem.to olsendera = olmailitem.sender if isnothing(olsendera) = false 'dim olconitem outlook.contactitem 'olconitem = olsendera.getcontact() 'if not isnothing(olconitem) ' if olconitem.haspicture = true ' stop ' end if 'end if pa = olsendera.propertyaccessor 'debug.print(olre.name & "stp= " & pa.getproperty("http://schemas.microsoft.com/mapi/proptag/0x39fe001e")) try me.txtfrom.text = me.txtfrom.text & olsendera.name & " (" & pa.getproperty("http://schemas.microsoft.com/mapi/proptag/0x39fe001e") & ")" catch ex system.runtime.interopservices.comexception 'stop me.txtfrom.text = olmailitem.sendername & " (" & olmailitem.senderemailaddress & ")" catch ex exception stop end try
Comments
Post a Comment