Grab Mail on another PC

[DMT Dave]

I have just used my VNC to log into work and this is my grab mail function which is exactly the same and works great! do you guys think there is a setting in outlook ???

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

[Welshgasman]

Nothing like you are writing now? Plus you use CreateObject?
You also ignore any errors?

[DMT Dave]

Thank you welshgasman but if it works on my work DB shouldn't it work on home one unless there is an outlook issue ? you will know more than me but im guessing logically

[DMT Dave]

This is my command button to call grab mail so does this clarify where i am going wrong ?

Dim myApp As ObjectDim ol As Outlook.Application




Set ol = CreateObject("Outlook.Application")






Me.txtMailMessage = ""
GrabMail


Me.txtMailMessage.SetFocus
DoCmd.RunCommand acCmdPaste

[Welshgasman]

So you create the outlook object there, but I do not understand how that can be seen in grabmail. This is beyond me😔
You also appear to paste the result AND set it in the function?

[Gicu]

Have a look at the attached sample it works for me...
Cheers,

[DMT Dave]

Hi Vlad, thank you, so soon as i open your database12 it auto comes up the runtime error 91 again, does this tell us all its not the VBA ?

[Gicu]

Do you have Outlook open with a message open when you open the db?
The error I believe is caused by the fact that you do not have an Outlook explorer window open with an email message loaded.
This updated function catches that and displays a message, modify as you wish:

Public Function GrabMail() As String




Dim MailBody As Outlook.MailItem  ' changed this to Outlook.MailItem
Dim outApp As Outlook.Application
Dim oExplorer As Outlook.Explorer


Set outApp = CreateObject("Outlook.Application")


Set oExplorer = outApp.ActiveExplorer
If oExplorer Is Nothing Then
    MsgBox "No Outlook explorer open!", vbCritical, "No Outlook Explorer"
    Exit Function
Else
    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.SetFocus  ' = MailBody
        'Debug.Print MailBody.GetInspector().WordEditor.Range.FormattedText
        DoCmd.RunCommand acCmdPaste
        
    End If
End If
End Function

Cheers,

[DMT Dave]

Cheers Vlad, you have cracked it, i think in one of my posts i mentioned i appear to have a different reading pane, i don't think it's outlook, will look into thtar, i wondered why it would work on other machines but not this new one!!

I will change my email settings and defaults etc, thank you

[DMT Dave]

Cheers Vlad, made the adjustments to default apps etc, all works good

thank you welshgasman also for your input

Solved

[Welshgasman]

TBH I do not know how your code even works, due to the outlook object in one sub and it's properties in another?

[DMT Dave]

Hi welshgasman, I have changed it now so the outlook object is in the function, the only event on the button now is GrabData

I am now going to find your post about saving attachments to a folder as thats my next move

[Gicu]

Glad to hear you got it working, good luck with your project.
Cheers,
Vlad