[AccessDevelopers] Re: Finding outlook email items and selectively forwarding them

 

You didn't reply to my last message.

--- In AccessDevelopers@yahoogroups.com, Mike Wolfstone <mikewolfstone@...> wrote:
>
> Most of the .bas module is something I picked up from ExpertsExchange.  No, I am
> not looking at contacts at all.  I am just trying to get the items I have
> selected from the Inbox to forward to an address I have chosen.  It does not
> recognize the item I pass as an email item (even though it is) and therefore not
> forwarding the item.
> I can identify the item I want by subject and/or item ID, but cannot forward it.
> Help!
>
>
>
>
> ________________________________
> From: GiorgioR <giorgio_rovelli@...>
> To: AccessDevelopers@yahoogroups.com
> Sent: Sun, July 3, 2011 4:38:15 PM
> Subject: [AccessDevelopers] Re: Finding outlook email items and selectively
> forwarding them
>
>  
> Mike, I don't know if you're using the Public Sub
> GetContactDetailsFromContactList but this to me seems wrong:
> Distribution Items(AddressLists)
> What's Distribution? And AddressLists is an undefined variable.
> I think you meant to type
> Set objItems = olContactFolder.Items(AddressLists)
> instead
> and also
>     While intitem < intIndx
>         If Not Len(arrItems(intitem, 0)) > 0 Then GoTo SkipAdd
>         If Left(arrItems(intitem, 0), 23) = "Undeliverable: Invoice " Or _
>             Left(arrItems(intitem, 0), 15) = "failure notice " Then
>                 arrIndx(intIndx2) = intitem
>                 intIndx2 = intIndx2 + 1
>                 List2.AddItem (arrItems(intitem, 0) & ";" &
> Right(arrItems(intitem, 1), 40) & ";" & arrItems(intitem, 2))
>         End If
> SkipAdd:
>     intitem = intitem + 1
>     Wend
> in Private Sub cmdScan_Click()
> goes into an endless loop.
> Giorgio
>
> --- In AccessDevelopers@yahoogroups.com, Mike Wolfstone <mikewolfstone@>
> wrote:
> >
> > With the current code,  it fails the IF check for a mail item and doesn't
> >email
> >
> > anything.
> > If I comment out the IF -> Endif,  it fails on a type mismatch at
> > 'set objitem = objitem2'
> > I've read the documentation (outlook VBA) and gotten samples from here and
> >other
> >
> > sites,
> > but no matter how I manipulate the code (the lines commented out are things I
> > have tried), 
> >
> > I can't quite get Outlook to recognize the item I have selected and forward
> it.
> > Anything you might suggest would be welcomed.
> > Mike
> >
> >
> >
> >
> > ________________________________
> > From: GiorgioR giorgio_rovelli@
> > To: AccessDevelopers@yahoogroups.com
> > Sent: Fri, July 1, 2011 12:39:48 AM
> > Subject: [AccessDevelopers] Re: Finding outlook email items and selectively
> > forwarding them
> >
> >  
> > Mike,
> > I suppose you mean the Private Sub cmdScan_Click() in frmTest calls the
> > GetEmailSpecificsFromOutlook sub but I see it run to completion, where's the
> > problem?
> > Giorgio
> >
> > --- In AccessDevelopers@yahoogroups.com, Mike Wolfstone mikewolfstone@
> > wrote:
> > >
> > > Giorgio,
> > > The code to email forward is in the .bas moduule.
> > > The code is not complete.  I build my automation apps so I can test them
> >along
> >
> > >
> > > the way and then clean out the chaff.
> > > The Scan (sub) logic calls the .bas module and that's where I have the
> > problem.
> > > Mike
> > >
> > >
> > >
> > >
> > > ________________________________
> > > From: GiorgioR giorgio_rovelli@
> > > To: AccessDevelopers@yahoogroups.com
> > > Sent: Thu, June 30, 2011 6:00:32 AM
> > > Subject: [AccessDevelopers] Re: Finding outlook email items and selectively
> > > forwarding them
> > >
> > >  
> > > Hi Mike, have you written the code to send the chosen item anywhere in the
> >VBA
> >
> >
> > > code or do you need that?
> > > Giorgio
> > >
> > > --- In AccessDevelopers@yahoogroups.com, "mikewolfstone" <mikewolfstone@>
> > > wrote:
> > > >
> > > > I uploaded the file. It is named FindTeamCust.mdb with a tag of
> > > >ForwardEmailSelectively.
> > > > Thanks for any help you can provide.
> > > >
> > > > --- In AccessDevelopers@yahoogroups.com, "giorgio_rovelli"
> ><giorgio_rovelli@>
> >
> > >
> > > >wrote:
> > > > >
> > > > > Hi, can you upload the mdb/accdb to the Files section?
> > > > >
> > > > > --- In AccessDevelopers@yahoogroups.com, "mikewolfstone" <mikewolfstone@>
> >
> > > >wrote:
> > > > > >
> > > > > > I have an Access program that reads the outlook inbox and extracts
> > >certain
> > >
> > > >data (subject, objectID, received date) and builds a list of those items. It
> >
> > > >then selects specific conditions in the subject and further selects those
> >for
> >
> >
> > > >email forwarding. I can get to that point and identify the item to forward,
>
> > >but
> > >
> > > >the Outlook API doesn't fit the documentation. I need to send (forward) an
> > >inbox
> > >
> > > >item to a new email address. Any thoughts?
> > > > > > The error I get on the activeinspector.currentitem.forward statement is
> >
> > > >"Method is not supported by the object"
> > > > > >
> > > > >
> > > >
> > >
> >
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (13)

Recent Activity:

• New Members 2

Visit Your Group

Please zip all files prior to uploading to Files section.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___