Start a macro with a button in outlook userdefined contact form

I have a user defined form in Outlook 2019

I have created a button and want to know how I can start a macro by pressing this button in the form?
The code for the button is in the Outlook forms VBScript editor!

Attachment 27408
http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=

Code:

---

Sub CommandButton4_Click()
  CODE NEEDED!
End Sub

---

The macro is in module 2. Name:

Public Sub AddNote()

It sets the cursor at the end of the body of the contact form:
If I get help here:
http://www.vbaexpress.com/forum/show...k-contact-body

Do I need some more libraries to get this work?

Attachment 27409

Sounds quite simple!?

BUT No answer here?

Can You please be so kind and recommend another forum for this question?y
THX

Right click the button and select ASSIGN MACRO. Choose the macro name from the list that is presented and click OK.

Quote:

---

Originally Posted by Logit

Right-click the button and select ASSIGN MACRO. Choose the macro name from the list that is presented and click OK.

---

THX BUT we are in OUTLOOK Contact Form!
Start a macro with a button in outlook userdefined contact form

There is no functionality like this!

Attachment 27425

Or have I missed Something?

What I need is the code in the Form:

Sub CommandButton4_Click
code needed!!!
End Sub

PLS SEE Above where it is!

Quote:

---

Originally Posted by Logit

Right click the button and select ASSIGN MACRO. Choose the macro name from the list that is presented and click OK.

---

Can you please post a screenshot!!

I cannot find this not even in word or excel button
üls describe the steps how you get there!

Im on Office 2019

.
Using the image in your first post above ... you have apparently created a COMMANDBUTTON4.
The code that runs, when you click this button, is located in that area.

What it should look like is :

Code:

---

Sub Commandbutton4_Click ()

End Sub

---

If you wanted to run a macro named ThisIsMyMacro :

Code:

---

Sub ThisIsMyMacro ()
    'code for this macro goes here
End Sub

---

Then the code for the button would be :

Code:

---

Sub Commandbutton4_Click ()
ThisIsMyMacro
End Sub

---

THX for taking care!

Does this work on your Outlook?

This is the macro in DieseOutlookSitzung
Attachment 27436

I'm on OL 2019 and tried the following without success:

Attachment 27437

Do I need some more libraries to get this work?
Pls see above what is enabled at the moment!

.

YOU ARE in EXCEL!!!

I'm speaking of a button in OUTLOOK CONTACT FORM
PLS see above!

I attach my TestMacro Form for outlook!

Can you pls try if it works?

.
I receive the same errors here as you did there.

Change the coding in CommandButton1. Make it read :

Code:

---

Sub CommandButton1_Click
    MsgBox "Hello, this is Button 1"
End Sub

---

Then run the form and click button one.

Quote:

---

Originally Posted by Logit

.
I receive the same errors here as you did there.

Change the coding in CommandButton1. Make it read :

Code:

---

Sub CommandButton1_Click
    MsgBox "Hello, this is Button 1"
End Sub

---

Then run the form and click button one.

---

OK THX for taking care BUT this is NOT the big aim to have a button in OL contact form saying "Hello World"!

The aim is as described several times to start A MACRO!! (written In VBA what is clear!) With a Button in OL contact form!

FYI: VBA is NOT supported in the CODE OF THE OL CONTACT FORM (IT SUPPORTS only VB)

meaning a macro in VBA like:
http://www.vbaexpress.com/forum/show...k-contact-body

Will NOT run in VB code of the form!!

I hope my question is now understandable here!

SO THX BUT still the same Question from my first post!

.
The following shows you can run a macro from one of the CommandButtons on the form. Regretfully, I am not familiar with the Outlook VB programming. Perhaps someone else can assist who is knowledgeable.

Code:

---

Public Sub CommandButton1_Click()
        Call AddDateEnd
End Sub


Public Sub AddDateEnd()
    ' Dim olItem As ContactItem
    ' Dim olInsp As Inspector
    ' Dim wdDoc As Object
    ' Dim oRng As Object
    MsgBox "Hello"
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olItem = ActiveInspector.currentItem
        Case olExplorer
            Set olItem = Application.ActiveExplorer.Selection.Item(1)
    End Select
    With olItem
        .Display
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        If Len(oRng) > 2 Then
            oRng.collapse 0
            oRng.Text = vbCrLf
        End If
        oRng.collapse 0
        oRng.Text = Format(Date, "mm/dd/yyyy") & " Call:" & vbCrLf & Format(Time, "HH.MM ")
        oRng.Paragraphs(1).Range.Font.Color = RGB(0, 128, 0)    'green
        ' place the cursor at the end of what has been inserted to be able to start writing
        oRng.collapse 0
        oRng.Select
        .Save
        '.Close 0 'Do not Close for further inserting text there
    End With
    lbl_Exit:
    Set olItem = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

---

THX
Can You please tel me where this code should go?

In ThisOutlooksession?
In the code of the form?

Is it working on your outlook in my attached MakroTest form?

You already have the code for the CommandButtons. Did you create the code for that ?

If so, the code goes in the same location.

Advise if you did not write the code for the CommandButtons.

THX for Taking Care

I have put the whole code you posted in the VB editor in the OL Form where the command buttons are defined.

When I click the Button
HELLO is shown when I click OK

Nothing more happens!
BUT also no ERROR
------------------------------

Maybe is best to scratch from SCRATCH?

What I want to achieve is

When I click the button in the OL Contact Form
DATE – TIME & MESSAGE:
should be inserted at the end of the Body in blue
And the cursor should go to the end of the inserted Text to be able to start writing there.

I hope I have described to be understandable!

Attachment 27442


http://www.vbaexpress.com/forum/imag...AAAElFTkSuQmCC

.
I understand your goal. Sadly, I do not understand the VB code required for Outlook.
If it accepted VBA code ... I could help ... but ... it does not accept VBA code.

Can anyone else assist with his needs ?

THX

There is the problem!

I think the macro cannot run in VB

Therefore, I thought I is a good idea to cal the VBA macro with VB code of the form.

I think I had this work years ago in OL 2003 or so.

Maybe Microsoft has blocked executing something like this, so I have edit registry or a Library is missing.

TERRIBLE

.
I believe you can accomplish your goal by using the correct programming language for Outlook.
Surely there must be websites with resources pertaining to the Outlook Programming Language that will assist.
I haven't done a search but ...

.
https://www.sciencedirect.com/book/9...ok-programming

https://docs.microsoft.com/en-us/off...c-with-outlook

https://dl.acm.org/doi/book/10.5555/862711

THX a lot for your care

This is far too much for my knowledge of Programming.
It should be possible and I hoped for someone who knows HowTo.

But it seems You are an expert in VBA!

So I can achieve this goal also in running a VBA macro from the ribbon!

Can you pls help me here:
http://www.vbaexpress.com/forum/show...k-contact-body

The macro works but the problem is that after the text is inserted courser is seen in the field
BUT when I start writing the text goes in that field where the courser was before starting the macro.
This is dangerous its possible to overwrite infos of another field.
So after running the macro I think also the focus? Of the courser has to be in the field where text is inserted.

Maybe you can help me in the other Tread to achieve this goal in VBA?

Here Is the demand.


How can I achieve this?

Attachment 27443


Hope you can help maybe with another solution with same result
THX

NOBODY Knows HowTo??