Re: Check if macro running from email

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Helmut Weber <nbhymsjxdgcn@xxxxxxxxxxxxxx>
Date: Sat, 16 Jun 2007 00:06:50 +0200

Hi Will,

couldn't find an elegant, bullet proof answer,
but maybe this is sufficient:

Sub Test4d()
Dim oCmd As CommandBar
Dim bOut As Boolean ' outlook true/false
For Each oCmd In Application.CommandBars
If oCmd.Visible = True Then
If oCmd.Name = "Envelope" Then
MsgBox "Outlook"
Exit Sub
End If
End If
Next
MsgBox "Word"
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

.

References:
- Re: Check if macro running from email
  - From: Jonathan West

Prev by Date: Re: Evaluating a MERGEFIELD = "RET"
Next by Date: Re: Return from viewing bookmark
Previous by thread: Re: Check if macro running from email
Next by thread: Re: Select textbox
Index(es):
- Date
- Thread