Office-Blog

HeinzPosted on  11:09 am - Jul 1, 2014

Zur Absendererzwingung nutze ich folgenden VBA-Code, der in „ThisOutlookSession“ eingetragen ist:

‚ Routinen zur Absendererzwingung
Public WithEvents oInsp As Inspectors
Public WithEvents oNewMail As MailItem

‚ Routinen zur Absendererzwingung
Private Sub oInsp_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
Set oNewMail = Inspector.CurrentItem
End If
End Sub

Private Sub oNewMail_Open(Cancel As Boolean)
Const MACROTITLE As String = „Kontoauswahl“
Dim lngAccCount As Long, i As Long
Dim strAccList As String
Dim varAccNum As Variant
If oNewMail.Sent = False Then
lngAccCount = Application.Session.Accounts.Count
If lngAccCount > 1 Then
For i = 1 To lngAccCount
strAccList = strAccList & i & “ – “ & _
Application.Session.Accounts(i).DisplayName & vbCrLf
Next i
varAccNum = InputBox _
(prompt:=“Über welches Konto soll die “ & _
„Nachricht verschickt werden?“ & String(2, vbCrLf) & strAccList & vbCrLf & _
„Bitte eine Zahl zwischen 1 und “ & lngAccCount & “ eingeben:“, Title:=MACROTITLE, Default:=1)
If varAccNum = „“ Then
Cancel = True
Exit Sub
ElseIf IsNumeric(varAccNum) And _
(varAccNum >= 1 And _
varAccNum <= lngAccCount) Then
varAccNum = Int(varAccNum)
Else
MsgBox prompt:="Falsche Eingabe!", _
Buttons:=vbExclamation, _
Title:=MACROTITLE
Cancel = True
Exit Sub
End If
oNewMail.SendUsingAccount = _
Application.Session.Accounts(varAccNum)
End If
End If
End Sub

Jedesmal, wenn ich eine neue Nachricht erstelle erscheint ein Fenster und fordert eine Zahl zwischen 1 un x, je nach Menge der Konten und trägt daraufhin das Sender-Konto ein. Diese werden ntürlich im Fenster mit ihrer jeweiligen Zahl angezeigt.

TildePosted on  4:06 pm - Feb 24, 2014

Super klasse! Vielen Dank für diese immense Arbeitserleichterung :-)!