I found your great macro to printout the folder structure of OL
Print a list of your Outlook folders (slipstick.com)
As I have 3 synct outlooks (SimpleSysn) and the tool is really good as time goes by with some errors shutdowns etc. there are sometimes a lot of duplicates in the...
I think I posted the wrong picture!! Sorry!
When in Inbox standing on a Mail and clicking the desired macro(BlacklistDomain) the domain of this mail is put in blacklist.
PLS. I want to add the senders' domain to
And put the mail in Junk Folder
can you assist pls.
I' moving from OL 2010 to OL2019
When you move the mouse over email in inbox there was a command available like look for Outlook contact
I have the German version but it should be understandable with the screenshots!
When clicking this the contact with this...
More explanation of the Problem:
I get Spam mails in Inbox.
Then right-click on the mail
Absender sperren = Block Sender
This mail address should Go to Blacklist!?
I now look for a macro (BlcklistDomain)that inserts only the domain in this list
That all mails...
Here Is a code that does that:
Public Sub AddDateEnd()
Dim olItem As ContactItem
Dim olInsp As Inspector
Dim wdDoc As Object
Dim oRng As Object
On Error Resume Next
Select Case Outlook.Application.ActiveWindow.Class
Set olItem =...
THX for taking care
YES! Like shown on The picture above
Command button Nr is not important!
In Fact, I need code to start a VBA macro that puts the cursor in the body field of the contact form and adds something!
OR a code that can be executed in the form itself directly with the command...
Here Is the demand.
How can I achieve this?
Hope you can help maybe with another solution with same result
Qs I understand I cannot cal a Macro in vbcript
But can I have this insert function written in vbscipt?
Are there other ways to get this Date & message inseted?
I found This
But I do not Know HowTo
in fact, it is like calling a macro from VBS script which should be possible
here is als somethin that calls a macro from...
THX for the macro - There is still a problem with focus on cursor Pls see here:
But To go on With starting the macro:
I hope you will remember HowTo!
The macro for testing is in ThisOutlookSession ( in German version DieseOutlookSizung)
What I tried in the meantime:
What's the matter here...
This works BUT
The next problem is that the focus is not at the cursor!
Meaning when I start to write the letters go There Were the cursor was before starting the macro.!
How to set the focus to the cursor position where the macro puts it?
when I use StampDate macro
Set Item = Application.ActiveInspector.CurrentItem
' first line
' Item.Body = Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem) & vbCrLf & vbCrLf & Item.Body
Item.HTMLBody = Item.HTMLBody & vbCrLf & vbCrLf & Format(Date...
I do not know where to put this in the macro or what to replace PLS help.
Can you Pls put it in the macro I have posted?
If I use your macro
The formatted body get lost!
e.g. lines in red get black again and format is lost!