Wie kommt die gesendete Mail ohne manuelles zutun nun in das richtige Postfach und dort in die ”Gesendete Objekte“?

Dafür hilft folgendes VBA Script. Dazu den VBA Editor mit ALT+F11 aufrufen und “DieseOutlookSitzung” im Projekt Explorer auswählen. Danach den folgenden Inhalt hinzufügen. Die Variable strNameSendFolder muss noch angepasst werden. Hier kann “Gesendete Elemente” oder “Gesendete Objekte” stehen oder jeder andere beliebige Ordner im entsprechenden Postfach.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

Public WithEvents mySentItems As Items
 
Sub Application_startup()
 
  Set mySentItems = Application.GetNamespace("MAPI").GetDefaultFolder _
(olFolderSentMail).Items
 
End Sub
 
Private Sub mySentItems_ItemAdd(ByVal Item As Object)
'Gesendete Objekte weitere Postfächer kopieren
On Error GoTo Fehler
 
Dim olItem As MailItem
Dim olNameSpace As Outlook.NameSpace
Dim olMAPIFolder As Outlook.MAPIFolder
Dim oCurrentUser As Object
Dim strSenderUser As String
Dim strSenderUserMAPIFolder As String
Dim strNameSendFolder As String
Set olNameSpace = Application.GetNamespace("MAPI")
 
'####################################################################################
' Bitte anpassen. Muss der Name des Ordners sein, in dem die Mail kopiert werden soll
'####################################################################################
strNameSendFolder = "Gesendete Elemente"
 
If (Item.Class = olMail) Then
    Set oCurrentUser = olNameSpace.CurrentUser
    If (Item.SentOnBehalfOfName = oCurrentUser) Then
        Exit Sub
    Else
        Set olCopiedItem = Item.Copy
        strSenderUser = Item.SentOnBehalfOfName
        strSenderUserMAPIFolder = "Postfach - " & strSenderUser
        Set olMAPIFolder = olNameSpace.Folders(strSenderUserMAPIFolder)
        olCopiedItem.Move olMAPIFolder.Folders(strNameSendFolder)
        olCopiedItem.Save
        Exit Sub
    End If
Else
    Exit Sub
End If
 
Fehler:
'MsgBox "Es ist ein Fehler aufgetreten." & Chr$(13) & _
'"Die Nachricht wurde in ihren Gesendeten Objekten gespeichert.", _
'vbCritical + vbOKOnly, "Es ist ein Fehler aufgetreten!"
 
End Sub

Public WithEvents mySentItems As Items

Sub Application_startup()

  Set mySentItems = Application.GetNamespace("MAPI").GetDefaultFolder _
(olFolderSentMail).Items

End Sub

Private Sub mySentItems_ItemAdd(ByVal Item As Object)
'Gesendete Objekte weitere Postfächer kopieren
On Error GoTo Fehler

Dim olItem As MailItem
Dim olNameSpace As Outlook.NameSpace
Dim olMAPIFolder As Outlook.MAPIFolder
Dim oCurrentUser As Object
Dim strSenderUser As String
Dim strSenderUserMAPIFolder As String
Dim strNameSendFolder As String
Set olNameSpace = Application.GetNamespace("MAPI")

'####################################################################################
' Bitte anpassen. Muss der Name des Ordners sein, in dem die Mail kopiert werden soll
'####################################################################################
strNameSendFolder = "Gesendete Elemente"

If (Item.Class = olMail) Then
    Set oCurrentUser = olNameSpace.CurrentUser
    If (Item.SentOnBehalfOfName = oCurrentUser) Then
        Exit Sub
    Else
        Set olCopiedItem = Item.Copy
        strSenderUser = Item.SentOnBehalfOfName
        strSenderUserMAPIFolder = "Postfach - " & strSenderUser
        Set olMAPIFolder = olNameSpace.Folders(strSenderUserMAPIFolder)
        olCopiedItem.Move olMAPIFolder.Folders(strNameSendFolder)
        olCopiedItem.Save
        Exit Sub
    End If
Else
    Exit Sub
End If

Fehler:
'MsgBox "Es ist ein Fehler aufgetreten." & Chr$(13) & _
'"Die Nachricht wurde in ihren Gesendeten Objekten gespeichert.", _
'vbCritical + vbOKOnly, "Es ist ein Fehler aufgetreten!"

End Sub

Nun Outlook neustarten. Danach werden die Mails in den Postausgangsordner des Absenders kopiert.

Beispiel in VB.NET

1
2
3
4
5
6
7
8
9

' Beispiel für die Environment.Version Eigenschaft
Imports System
 
Class Sample
   Public Shared Sub Main()
      Console.WriteLine()
      Console.WriteLine("Version: {0}", Environment.Version.ToString())
   End Sub 'Main
End Class 'Beispiel

' Beispiel für die Environment.Version Eigenschaft
Imports System

Class Sample
   Public Shared Sub Main()
      Console.WriteLine()
      Console.WriteLine("Version: {0}", Environment.Version.ToString())
   End Sub 'Main
End Class 'Beispiel

Beispiel in C#

1
2
3
4
5
6
7
8
9
10
11

// Beispiel für die Environment.Version Eigenschaft
using System;
 
class Sample
{
    public static void Main()
    {
    Console.WriteLine();
    Console.WriteLine("Version: {0}", Environment.Version.ToString());
    }
}

// Beispiel für die Environment.Version Eigenschaft
using System;

class Sample
{
    public static void Main()
    {
    Console.WriteLine();
    Console.WriteLine("Version: {0}", Environment.Version.ToString());
    }
}

Aditya Ravi Shankar steckt hinter dem Projekt und sucht weiter Mitstreiter die sich in dem wohl besten C&C Teil versuchen wollen.

Das für Google Chrome und Firefox optimierte Spiel lässt sich aktuell mit einem Level antesten.

Die Anleitung geht kurz auf die technischen Hintergründe ein und bietet den Quellcode zum selber testen an.

Nun wenn Ihr, wie ich auch, nicht alle kennt, sollte Euch die folgende Dokumentation weiterhelfen.

Auf der Seite www.sapdesignguild.org gibt es eine Übersicht über die verschiedenen Klassen und Gruppen der R/3 Ikone.

Das Dokument lässt sich auch als PDF auf den Rechner speichern

Fügt man die folgende Zeile vor while have posts ein, werden die Artikel nach Name sortiert ausgegeben.

1

<?php query_posts($query_string . '&orderby=title&order=asc');?>

<?php query_posts($query_string . '&orderby=title&order=asc');?>

Damit die HTML Hilfe auch von einem Netzwerk wieder aufgerufen werden kann, gibt es zwei Möglichkeiten:

1. Erweitern der MaxAllowedZone
MaxAllowedZone ist die etwas komfortablere aber dafür unsichere Variante. Hierbei wird der Zugriff aller CHM-Dateien/Sites egal welcher Pfad erlaubt.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\HTMLHelp\1.x\ItssRestrictions]
“MaxAllowedZone”=dword:00000004

2. Erweitern der UrlAllowedList

Mit UrlAllowedList lässt sich die Freigabe für die Sicherheit auf bestimmte Adressen einschränken. Platzhalter sind bei der Pfadangabe nicht erlaubt.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\HTMLHelp]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\HTMLHelp\1.x\ItssRestrictions]
“UrlAllowList”=”\\Server_Name\Freigabe_Name;file://\\Server_Name\Freigabe_Name;http://blog.af-network.de/”

HOL Dateien können über einen Doppelklick in Outlook eingefügt werden.

Es gibt für jedes Bundesland eine eigene Datei. Somit können im Outlook gezielt die Feiertage angelegt werden.

D.h., möchte man das WLan oder den Flugmodus ein bzw. ausschalten, muss man erst das Einstellungen App starten und dort in das entsprechende Untermenü gehen.

Auf derplattenspieler.com wurde eine Anleitung erstellt, mit der Icon´s auf dem Homescreen platziert werden können, die einen schnellen direkten Zugriff auf entsprechende Einstellungen erlauben.

Eine Anleitung, wie dieser Zugriff über das App QuickButton möglich ist, wurde auf redparkz.de veröffentlicht.

Mit einer einfachen Funktion lässt sich ermitteln, welche Variablen im Dokument gespeichert sind und wie deren Wert ist.

Die Funktion durchläuft alle im Dokument gespeicherten Variablen und gibt diese am Ende vom Dokument aus.

 1: Option Explicit

<span class="lnum"> 2: </span>

 3: 'Funktion zum Ausgeben der im Worddokument gespeicherten Variablen

<span class="lnum"> 4: </span><span class="kwrd">Public</span> <span class="kwrd">Sub</span> LeseDocVariablen()

 5: Dim oVar As Variable

<span class="lnum"> 6: </span>

 7: 'Jede einzelne gespeicherte Variable durchlaufen

<span class="lnum"> 8: </span><span class="kwrd">For</span> <span class="kwrd">Each</span> oVar <span class="kwrd">In</span> ActiveDocument.Variables

 9: 'An Dokumentende springen

<span class="lnum"> 10: </span>Selection.EndKey Unit:=wdStory

 11: 'Name und Wert der Variable ausgeben

<span class="lnum"> 12: </span>Selection.TypeText oVar.Name & <span class="str">": "</span> & oVar.Value & vbCrLf

 13: Next

<span class="lnum"> 14: </span><span class="kwrd">End</span> <span class="kwrd">Sub</span>