Grab Mail on another PC

[DMT Dave]

Hi Guy's. i have got a new PC for home use and when i use my Grab Mail function, it doesn't seem to want to play, below is what code i have and what is happening, can you great guy's help ?

I have got the mail i want to grab active on the taskbar

Public Function GrabMail() As StringDim WordApp As Word.Application
Dim MailBody As MailItem


If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then
Set MailBody = ActiveExplorer.Selection.Item(1)
MailBody.GetInspector().WordEditor.Range.FormattedText.Copy
Forms!frmMainMenu!txtMailMessage = MailBody
End If


End Function

Here are the reference libraries i have got set on my machine, i also believe my other machines are office 365 2016 and this new PC is office 365 2019, does that make a difference ?

[CJ_London]

Shouldn’t there be a dim before wordapp and be on a separate line?

[Welshgasman]

Walk through the code line by line and inspect what you have.
I'd expect you'd need an Outlook object?

You do not even say on what line you get the error?

[DMT Dave]

Hi Guy's there is a Dim before wordapp, when i paste the code on here, it appears to put it on the same line but it's

Dim WordApp as Word.Application

The line that debugs is:

If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then

Kind REgards

[Welshgasman]

Activeexplorer is an outlook item, yet you have no outlook object.?
How did this work on the other pc?

[DMT Dave]

Thank you welshgasman, i must have an object on the event procedure sub to declare an outlook object!

I suppose my best question is can my initial function GrabMail read the mail body and paste onto Forms!frmMainMenu!txtMailMessage ?

[DMT Dave]

I have tried adding outlook.mail item and still no joy

Public Function GrabMail() As String

Dim WordApp As Word.Application

Dim MailBody As Outlook.MailItem changed this to Outlook.MailItem


If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then
Set MailBody = ActiveExplorer.Selection.Item(1)
MailBody.GetInspector().WordEditor.Range.FormattedText.Copy
Forms!frmMainMenu!txtMailMessage = MailBody
End If


End Function

[Welshgasman]

I posted code in another thread of yours about attachments didn't I?
That has the ActiveExplorer property, but also refers to the Outlook object, so Yes, I would say you need Outlook and then it's ActiveExplorer property.

Look at that code.

Yes, if you ever get to the correct email, you can copy it. I would have thought it would be something like MailBody.Text (or body/htmlbody) though?

[DMT Dave]

Active x cant create object, i now have this error in the below code, is it that i haven't got the option for active x and it's struggling to create an object ??

Dim app As ObjectDim SearchString As String, myOpt As String, mySearch As String


myOpt = InputBox("Enter What You Want To Search ?" & vbNewLine & vbNewLine & _
Chr(149) & " 1 " & Chr(149) & " Full Call Diary" & vbNewLine & vbNewLine & _
Chr(149) & " 2 " & Chr(149) & " Callers Name" & vbNewLine & vbNewLine & _
Chr(149) & " 3 " & Chr(149) & " Callers Location (Town)" & vbNewLine & vbNewLine & _
Chr(149) & " 4 " & Chr(149) & " Callers Location (PostCode)" & vbNewLine & vbNewLine & _
Chr(149) & " 5 " & Chr(149) & " Phone Number", "ENTER YOUR SEARCH OPTION")
Select Case myOpt
Case 1
myString = "Call Diary"
Case 2
mySearch = InputBox("Enter Callers Name ?", "CALLERS NAME")
Case 3
mySearch = InputBox("Enter Callers Location ?", "CALLERS NAME")
Case 4
mySearch = InputBox("Enter Callers Postcode ?", "CALLERS POSTCODE")
Case 5
mySearch = InputBox("Enter Callers Phone Number ?", "CALLERS NUMBER")
End Select


Set app = GetObject(, "Outlook.Application") This debugs so am thinking its related to creating active x objects ???
On Error GoTo 0
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
app.Explorers.Add app.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
app.Explorers(1).Activate
End If
SearchString = mySearch
app.ActiveExplorer.Search SearchString, olSearchScopeAllFolders
Set app = Nothing
DoCmd.RunCommand acCmdAppMinimize

[Welshgasman]

I have no idea where you are getting your code ideas from?

I have this in a sub to send emails from Access

 ' See if Outlook is open, otherwise open it
    'If fIsOutlookRunning = False Then
    Set objOutlook = CreateObject("Outlook.Application")
    'Call OpenOutlook
    'Pause (5)
    ' Else
    'Set objOutlook = GetObject(, "Outlook.Application")
    'End If

That works even when I have outlook open (which I normally would have) and I set it to Nothing at the end. You can see that I initially was trying to do the same as you, then found out no need (for me at least)?

Please amend your code you paste to truly reflect what you have, never mind what the side does to it.?
Not
Dim app As ObjectDim SearchString As String, myOpt As String, mySearch As String

Dim app As Object
Dim SearchString As String, myOpt As String, mySearch As String

You already have outlook as a reference, so why not use it's name? called Early Binding, unless you need Late Binding?

[Gicu]

Hi Dave,
Can you please try this modified function:

Public Function GrabMail() As String


Dim WordApp As Word.Application


Dim MailBody As Outlook.MailItem changed this to Outlook.MailItem
dim outApp as Outlook.Application


Set outApp = CreateObject("Outlook.Application")


If TypeName(outApp.ActiveExplorer.Selection.Item(1)) = "MailItem" Then
	Set MailBody = outApp.ActiveExplorer.Selection.Item(1)
	MailBody.GetInspector().WordEditor.Range.FormattedText.Copy
	Forms!frmMainMenu!txtMailMessage = MailBody
End If
End Function

Also in your searching code remove the GetObject part and just leave the CreateObject (it reuses the existing Outlook instance is already running).

Cheers,

[Welshgasman]

Just discovered this piece of code I had from somewhere, this is only part of it, but should make things clearer

    Set olApp = VBA.GetObject(, "Outlook.Application")  'Assumes Outlook is open else err 429
    Err.Clear
    If olApp Is Nothing Then GoTo ExitRoutine   'Outlook needs to be open!

[Gicu]

Another useful link:
https://www.rondebruin.nl/win/s1/outlook/openclose.htm

[DMT Dave]

Hi Vlad, it still debugs on If TypeName(outApp.ActiveExplorer.Selection.Item(1)) = "MailItem" Then

RunTime Error 91 Object variable or with variable not set!

Please forgive me if i am missing something

This is copying your modified function

Thanks again, i will look at your other option and welshgasman suggestion

Thank you

[DMT Dave]

Hi Guy's i have very similar code on my laptop and it works ok on there!!!!

I have found the following code on the internet, so this does actually copy and paste to Forms!frmMainMenu!txtMailMessage but it copies the code in the function, I now think it has something to do with the mail that is open

I am using 365 outlook but my reading view is totally different in this version, is this some thing to do with it ???

Code that will paste the Function into mailmessage txt box

Function GetCurrentItem() As Object Dim objApp As Outlook.Application 
Set objApp = CreateObject("Outlook.Application") 
On Error Resume Next 
Select Case TypeName(objApp.ActiveWindow) 
Case "Explorer" 
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1) 
Case "Inspector" 
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem 
Case Else
End Select 
Set objApp = Nothing 
End Function