N
Nitrox
Hi
With VBA-Code, i creat a new Emails at basis on a mail-template. Outlook
adds automaticly the signature in this mail. Thats so defined in the
format-settings.
But I often have to write Emails in different other languages. Then Outlook
adds the same signature as before, in the standard-language. To change it, I
defined different signatures in different languages (and change it by hand).
Now I like to make a script for that:
Openproc:
strPathname = "C:\...\Confirmation_En.oft"
Set objMail = Application.CreateItemFromTemplate(strPathname)
objMail.Display
--> Now the Email is created, the Signature ist in the Email. That works fine.
I think to work with Commandbars, to simulate the userinputs
Menu Insert - Signature, then select an signature and Ok
My first tries to work with CommandBars (whitout success):
Set objInspector = Outlook.ActiveInspector
Set objCommandBars = objInspector.CommandBars
For each objBar in objCommandBars
If objBar.Name = "Signatur" then
exit For
end if
Next
If objBar Is Nothing then GoTo Exit_Sub
--> A Bar with name Signature exists. Is this the right one?
--> And now?
--> What does the Inspecor define? My Mail or Outlook Mainmenu?
Hav you any Idea, how it's to realise?
Remark: I'm not a professional programmer...
Thanks a lot
Greetings
Nitrox
With VBA-Code, i creat a new Emails at basis on a mail-template. Outlook
adds automaticly the signature in this mail. Thats so defined in the
format-settings.
But I often have to write Emails in different other languages. Then Outlook
adds the same signature as before, in the standard-language. To change it, I
defined different signatures in different languages (and change it by hand).
Now I like to make a script for that:
Openproc:
strPathname = "C:\...\Confirmation_En.oft"
Set objMail = Application.CreateItemFromTemplate(strPathname)
objMail.Display
--> Now the Email is created, the Signature ist in the Email. That works fine.
I think to work with Commandbars, to simulate the userinputs
Menu Insert - Signature, then select an signature and Ok
My first tries to work with CommandBars (whitout success):
Set objInspector = Outlook.ActiveInspector
Set objCommandBars = objInspector.CommandBars
For each objBar in objCommandBars
If objBar.Name = "Signatur" then
exit For
end if
Next
If objBar Is Nothing then GoTo Exit_Sub
--> A Bar with name Signature exists. Is this the right one?
--> And now?
--> What does the Inspecor define? My Mail or Outlook Mainmenu?
Hav you any Idea, how it's to realise?
Remark: I'm not a professional programmer...
Thanks a lot
Greetings
Nitrox