Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.databases.ms-access > #10339

Re: Collect Data functionalty

Show all headers | View raw

On 09/02/2015 21:56:35, Patrick Finucane wrote:
> On Friday, February 6, 2015 at 12:33:11 PM UTC-5, bobh wrote:
>> On Friday, January 30, 2015 at 1:52:00 PM UTC-5, bobh wrote:
>> > Hi All,
>> >
>> > In Access2007 on the External Data ribbon a Collect Data section, anyon
> e use that?
>> >
>> > anyways, I tried tested the Create E-mail wizard and it works good but
> I was wondering if anyone has been able to figure how to get the 'From'
> ema il address as part of the returned data. I'm hoping there's a way to
> do tha t other than having the user typing it in.
>> > thanks
>> > bobh.
>>
>> so, no one uses this functionality
>> bobh.
> 
> Could you have an text box in the email that contains the email addy and
> pr ocess that address when returned?
> 

This may not be what you want, but it could provide a start.


http://qlockwork.com/timetrackingthoughts/2011/02/outlook-2010-tips-extracting-email-addresses-from-emails/

With Office 2010 that provides a column in a table of from email addresses,
but it is exporting from Outlook rather than importing from Access

Phil

Ignore that.

Create a table call Email and using the code below set up what fields you
would like all as text Make sure you have a reference to Outlook

Sub ImportContactsFromOutlook()

   ' This code is based in Microsoft Access.

   ' Set up DAO objects (uses existing "Email" table)
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset("Email")


   ' Set up Outlook objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim cf As Outlook.MAPIFolder
   Dim cMail As Outlook.MailItem
   Dim cAtch As Outlook.Attachments
   Dim objItems As Outlook.Items
   Dim of As Outlook.Folder
   Dim ofSub As Outlook.Folder

   Dim iNumMessages As Long, i As Long, j As Long, cntAtch As Long
   Dim strAtch As String

   Set olns = ol.GetNamespace("MAPI")
   '--- (5) ---
'Would uld eventually be nice to allow a user to select a folder.
Folderpicker? Lowest     priority.

   Set of = olns.GetDefaultFolder(olFolderInbox)
   '--- (1) ---
'Loop oop only searches one level down. I will need all subfolders. Most
examples I saw call external Sub? Recursive? For Each ofSub In of.Folders
   Set objItems = ofSub.Items
   iNumMessages = objItems.Count
   If iNumMessages <> 0 Then
      For i = 1 To iNumMessages
         If TypeName(objItems(i)) = "MailItem" Then
            Set cMail = objItems(i)
            rst.AddNew
            rst!EntryID = cMail.EntryID
            rst!ConversationID = cMail.ConversationID
            rst!Sender = cMail.Sender
            rst!SenderName = cMail.SenderName
            rst!SentOn = cMail.SentOn
            rst!To = cMail.To
            rst!CC = cMail.CC
            rst!BCC = cMail.BCC
            rst!Subject = cMail.Subject
            rst!EMailAdd = cMail.SenderEmailAddress
            '--- (3) ---
'Code 'Code only inserts first attachment. Code Also inserts embedded
attachments. 'Need code to insert all user selected attachments (ex. PDF
Document) and no embedded attachments. Set cAtch = cMail.Attachments
            cntAtch = cAtch.Count
                If cntAtch > 0 Then
                    For j = cntAtch To 1 Step -1
                    strAtch = cAtch.Item(j).FileName
                    rst!Attachments = strAtch
                    Next
                Else
                    'rst!Attachments = "No Attachments"
                End If
            'rst!Count = cMail.Attachments.Count
           ' rst!Body = cMail.Body
            'rst!HTMLBody = cMail.HTMLBody
           ' rst!Importance = cMail.Importance
           ' rst!Size = cMail.Size
           ' rst!CreationTime = cMail.CreationTime
           ' rst!ReceivedTime = cMail.ReceivedTime
           ' rst!ExpiryTime = cMail.ExpiryTime
            '--- (2) ---
            ' Solved - Figured out how to call folder location into databse.
           ' rst!EmailLocation = ofSub.Name
            rst.Update
         End If
      Next i
   End If
   Next
   '--- (4) ---
   'Still need code to append Access database with only new records.
'Duplicate ate email can exist in differenc subfolders but not same
subfolder. End Sub




To lazy to set up all the fields in the table as it is 00:45 and I need some
shut eye

The email address is in EmailAdd

Phil

---
This email has been checked for viruses by Avast antivirus software.
http://www.avast.com

Back to comp.databases.ms-access | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Collect Data functionalty bobh <vulcaned@yahoo.com> - 2015-01-30 10:51 -0800
  Re: Collect Data functionalty bobh <vulcaned@yahoo.com> - 2015-02-06 09:33 -0800
    Re: Collect Data functionalty Patrick Finucane <patrickfinucanetx@gmail.com> - 2015-02-09 13:56 -0800
      Re: Collect Data functionalty "Phil" <phil@stantonfamily.co.uk> - 2015-02-10 00:45 +0000

csiph-web