skorpion1701

Dank der Hilfe eines Kollegen konnte das Problem mit "„Private Sub Application_Itemsend….." gelöst werden. Wenn ich auf den Button "Senden" klicke. Wird das Testskript nun ausgeführt. Das Testskript hatte aber lediglich die Aufgabe die Betreffzeile zu ändern. Wie gesagt taste mich an die Lösung ran. Habe aber unter "http://www.hilpers.com/860800-per-vba-das-feld-einfuegen" ein Skript gefunden, welches eher meinen Anforderungen entspricht (Quelltext siehe unten). Dim Variable1 As String, Signature As String, LineBuffer As String Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim ans ans = MsgBox("Signatur hinzufügen??", vbYesNo) If ans = vbNo Then Exit Sub If ans = vbYes Then Call SetSignature(SignaturName) End If End Sub Sub SetSignature(ByVal SignatureName As String) Const ID_INSERT As Integer = 30005 Const ID_SIGNATURES As Integer = 31145 Dim objInspector As Outlook.Inspector Dim objCommandBars As Office.CommandBars Dim objCommandBarPopup As Office.CommandBarPopup Dim objCommandBarControl As CommandBarButton Dim objCommandBarControls As CommandBarPopup Dim strButtonName As String Set objInspector = Outlook.ActiveInspector If Not objInspector Is Nothing Then If objInspector.IsWordMail = True Then GoTo ExitProc Set objCommandBars = objInspector.CommandBars Set objCommandBarPopup = objCommandBars.FindControl(, ID_INSERT) If Not objCommandBarPopup Is Nothing Then Set objCommandBarControls = objCommandBars.FindControl(, ID_SIGNATURES) If Not objCommandBarControls Is Nothing Then For Each objCommandBarControl In objCommandBarControls.Controls strButtonName = objCommandBarControl.Caption If strButtonName = SignatureName Then objCommandBarControl.Execute GoTo ExitProc End If Next objCommandBarPopup.Controls(1).Execute End If End If End If ExitProc: Set objCommandBarControl = Nothing Set objCommandBarPopup = Nothing Set objCommandBars = Nothing Set objInspector = Nothing End Sub Leider scheint das Skript unter Outlook 2007 nicht zu funktionieren. Muss aber auch zugeben, dass ich nicht jede Zeile verstehe. Kennt jemand von euch zufällig Quellen wo man die Syntax von VBA unter Outlook nachschlagen könnte? Ist ein wenig schwierig ohne genaue Kenntnisse über die Syntax bzw. Objekte wie z.B. Outlook.ActiveInspector eine Lösung zu erarbeiten.....

Hallo Zusammen, suche derzeit eine Möglichkeit wie an eine E-Mail in Abhängigkeit der Empfängeradresse zwei unterschiedliche E-Mailsignaturen angehangen werden können. Zur Verdeutlichung hier ein paar Beispiele: Beispiel 1: WENN die Empfängeradresse/n ausschließlich „@meinefirma.de“ enthält/enthalten DANN verwende die interne Signatur Beispiel 2: WENN die Empfängeradresse/n ausschließlich „@externefirma.de“ enthält/enthalten DANN verwende die externe Signatur Beispiel 3: WENN die Empfängeradresse/n sowohl „@meinefirma.de“ als auch „@externefirma.de enthält/enthalten DANN verwende die externe Signatur Am schönsten wäre es, wenn es hierfür bereits ein ADD-IN geben würde. Konnte allerdings bisher keins finden L. Daher habe ich versucht mich mit VBA spez. „Private Sub Application_Itemsend…..“ an eine Lösung heranzutasten. Leider funktionierten meine Test-Skripts nicht. Irgendwie scheint er auf das o.g. Ereignis nicht zu reagieren. Habt ihr zufällig einen Rat für mich?

Hallo, ich hätte mal eine Frage. Ist es möglich den Windows Small Business Server 2003 als DNS-Server für eine Internetdomäne zu nutzen? Habe nämlich im SBS-Handbuch von Microsoft Press gelesen, dass der DNS-Serverdienst beim SBS nur für die lokale Namensauflösung ist. Nun bin ich verwirrt und wäre für jede Hilfe dankbar.