Forums Neueste Beiträge
 

"Von" Feld vorbelegen

21/05/2008 - 10:51 von Hans Otany | Report spam
Hallo,

ich habe OL2003 am Exchange.
Ich möchte gern das "Von" Feld vorbelegen und habe hier schon von einem User
genau das gefunden was ich suche, nur weiß ich leider nicht wie ich das
starten kann wenn das Outlook startet?
Ich habe den folgenden Code unter "DieseOutlookSitzung" eingefügt aber das
reicht offensichtlich nicht, denn wenn ich eine neue Mail öffne, dann ist
das "Von" Feld immer noch leer.

Code:

Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
Set newItem = Inspector.CurrentItem
End Sub

Private Sub newItem_Open(Cancel As Boolean)
If (newItem.Class = olMail) Then
abbruch = False
Set parentFolder = ActiveExplorer.CurrentFolder
Do While ((parentFolder.Parent <> "Mapi") And (abbruch False))
If (parentFolder.Parent = "Postfach - Ich") Or
(parentFolder = "Postfach - Ich") Then
abbruch = True
With newItem
.SentOnBehalfOfName = "<ich@Firma.de>"
.Recipients.ResolveAll
.Display
End With
End If
Set parentFolder = parentFolder.Parent
Loop
End If
newItem.Recipients.ResolveAll
End Sub



Kann mir da jemand helfen?

Vielen Dank.

mfg hans
 

Lesen sie die antworten

#1 Peter Marchert
21/05/2008 - 11:49 | Warnen spam
On 21 Mai, 10:51, "Hans Otany" wrote:
Hallo,

ich habe OL2003 am Exchange.
Ich möchte gern das "Von" Feld vorbelegen und habe hier schon von einem User
genau das gefunden was ich suche, nur weiß ich leider nicht wie ich das
starten kann wenn das Outlook startet?
Ich habe den folgenden Code unter "DieseOutlookSitzung" eingefügt aber das
reicht offensichtlich nicht, denn wenn ich eine neue Mail öffne, dann ist
das "Von" Feld immer noch leer.

      Code:

      Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
          Set newItem = Inspector.CurrentItem
      End Sub

      Private Sub newItem_Open(Cancel As Boolean)
          If (newItem.Class = olMail) Then
              abbruch = False
              Set parentFolder = ActiveExplorer.CurrentFolder
              Do While ((parentFolder.Parent <> "Mapi") And (abbruch > False))
                 If (parentFolder.Parent = "Postfach - Ich") Or
(parentFolder = "Postfach - Ich") Then
                      abbruch = True
                      With newItem
                          .SentOnBehalfOfName = ""
                          .Recipients.ResolveAll
                          .Display
                      End With
                  End If
                  Set parentFolder = parentFolder.Parent
              Loop
          End If
          newItem.Recipients.ResolveAll
      End Sub

Kann mir da jemand helfen?



Hallo Hans,

hast Du die Makros aktiviert (siehe www.outlook-stuff.com -> Tipps
+Tricks)?

Gruß
Peter

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen