Outlook 2019 Edit contact from email does not open the user defined contactform

[Witzker]

Suddenly I noticed this strange behavior before it worked normal and opened the use contact form
NOW!
When I click on mail address of a received mail to open the user defined contact form with edit contact ( Kontakt bearbeiten)- contact form is not displayed.
Instead, the v card view (Visitenkarte öffnen) is opened.

Instead, the v card view (Visitenkarte öffnen) is opened.
As if I had clicked on this!

Pls help to get the standard Back so that as before, the user contact form is displayed again

 

[Witzker]

As it seems there is no fix, I would like to ask for a macro that dos that function
I'm standing on a received mail in inbox
Start the desired macro
macro looks in user defined Contact folders for the email and opens the contact in the user form of the contact
Pls help

 

[Witzker]

Now I have This:

Sub OpenContactFromEmail_50() 'geht öffnet richtig im neuen fenster
    Dim objMail As Outlook.MailItem
    Dim objContact As Object
    Dim strSenderEmail As String
    Dim objFolder As Outlook.folder
    Dim contactFound As Boolean

    Set objMail = Outlook.Application.ActiveExplorer.Selection(1)
    strSenderEmail = objMail.SenderEmailAddress

    ' Get the specific folder "- Datenbank -" with EntryID "000000007998B6FCA64C5446BC2551CD552DE5C3C285BE01"
    Set objFolder = Outlook.Application.Session.GetFolderFromID("000000007998B6FCA64C5446BC2551CD552DE5C3C285BE01")
    contactFound = False

    ' Check items in the specific folder
    For Each objContact In objFolder.Items
        If objContact.Class = olContact Then
            If objContact.Email1Address = strSenderEmail Or _
            objContact.Email2Address = strSenderEmail Or _
            objContact.Email3Address = strSenderEmail Then
                'open the contact in new window
                objContact.Display
                contactFound = True
                Exit Sub
            End If
        End If
    Next

    ' If contact not found, display a message
    If Not contactFound Then
        MsgBox "Kontakt nicht gefunden."
    End If
End Sub

But I'm not satisfied with this behavior
1 It makes Outlook not responding for a while but then opens the corresponding Contact
2 The contact is opened, but not in the same way as if I open it normally with a click on the contact in a contact view

In the code of the form, I have this code to set the cursor at the end of body so that I can start writing without to scroll all the way down to the end of Body

Sub Item_Open()
  Set objWSHShell = CreateObject("WScript.Shell")
     objWSHShell.SendKeys("{TAB 14}")
     objWSHShell.SendKeys("^{End}")
     objWSHShell.SendKeys("{Enter}")    
End Sub

Pls. Help to improve this macro.

What would be the right way to open the found contact in the same way as if I open it normally with a click on the contact in a contact view = I need the VBA way to do this

THX

 

[nellydonaldson]

This issue could be caused by a few things. It's possible that the link to the contact form is broken or incorrect. It could also be a problem with the way the form is set up or the user's web browser. To resolve the issue, try checking the link to the contact form, making sure the form is set up properly, and clearing the browser cache. If the problem persists find this, consider reaching out to the form's support team for assistance