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

Status
Not open for further replies.

Witzker

Senior Member
Outlook version
Outlook 2019 64-bit
Email Account
POP3
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.

1674276357430.png


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


1674276475712.png


Pls help to get the standard Back so that as before, the user contact form is displayed again
 
Last edited:
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
 
Now I have This:
Code:
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
Code:
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
 
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
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
L Wierd Office 365 Contact unable to edit body of random contacts Using Outlook 5
S Unable to Edit Contact Information in Certain Contact Folders Using Outlook 3
P People/Contact Record gets deleted when I edit it? Using Outlook 3
X Bulk edit Contact forms Using Outlook 2
A Contact address disappears when opened to edit Using Outlook 5
M Bulk Edit contact notes BCM (Business Contact Manager) 1
A Cannot edit or open existing contact nor add new ones. BCM (Business Contact Manager) 1
M Outlook 2003: Cannot edit default Contact Form Using Outlook 11
F Text Format Change - Bulk Edit Contact Notes Using Outlook 2
H using VBA to edit subject line Outlook VBA and Custom Forms 0
J Cannot edit a calendar event received as an invitation Using Outlook 2
E Edit incoming emails to remove a certain sentence added by the "system" Using Outlook 1
B Outlook 2019 Custom Email form - Edit default email form Outlook VBA and Custom Forms 6
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
T Outlook 2010 Cannot edit Calendar entries in OL 2010. Using Outlook 1
G print attachment straight away; working script edit not working Outlook VBA and Custom Forms 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
F VBA code to dock Styles whenever I write or edit an email Outlook VBA and Custom Forms 0
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
J Message search and edit, another way? Outlook VBA and Custom Forms 4
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
N VBA Script to Open highlighted e-mail and Edit Message Outlook VBA and Custom Forms 5
S Outlook.com cannot edit some contacts Using Outlook.com accounts in Outlook 5
D Edit Subject (Multiple Accounts) Outlook VBA and Custom Forms 5
B My outlook calendar edit issue Outlook VBA and Custom Forms 0
D VBA to edit body of incoming email and forwarding it Outlook VBA and Custom Forms 11
Diane Poremsky Edit and Save Outlook's Read-Only Attachments Using Outlook 0
P "Edit Message" feature removed in Outlook 2016 for Mac Outlook VBA and Custom Forms 0
snissen Where is "Edit Message" in Outlook 2016? Using Outlook 2
C Edit/Create Pen Not Working Outlook 2013 Using Outlook 1
J Can invitee edit details? Using Outlook 1
R Edit Subject Line of Meeting Invitation? Using Outlook 1
G Outlook 2013: Cannot Edit default Holiday Calendar Using Outlook 2
V Custom form won't open for edit Outlook VBA and Custom Forms 3
P Edit Subject for every sent message Outlook VBA and Custom Forms 3
M Any way to edit the message field on a 2010 Outlook Form? Using Outlook 3
S OL 2010 shortcut to edit received mail Using Outlook 3
T Exchange 2010: 'could not save item' and 'Unknown error' when edit calendars Exchange Server Administration 1
S how can i edit email address/es from the from field Using Outlook 5
M How to edit a monthly calendar to remove the cover page Using Outlook 1
S How do I edit an attachment in an invite without notifying the attendees? Using Outlook 2
B Notice to user of appt. set by person with permission to edit (Outlook 2003) Using Outlook 7
H Edit email message Using Outlook 7
T Unable to edit Distribution Group membership via Outlook (works via ECP). Exchange Server Administration 7
D How do I edit a macro in Outlook? Outlook VBA and Custom Forms 1
E Currency Edit Control on custom Taskpanes Outlook VBA and Custom Forms 1
E Currency Edit Control on custom Taskpanes Outlook VBA and Custom Forms 1
A edit right pane of mail Outlook VBA and Custom Forms 15
S Correct way to Identify is Mail is opened in Edit Mode Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2

Similar threads

Back
Top