die Archivsuche nach "Outlook Konto" brachte mir diverse Beitragsfolge wo einhellig die meinung vertreten wurde, Outlook würde immer über das Standardkonto senden und per Vba könnte man dieses aus Sicherheitsgründen nicht ändern, also kein anderes Konto angeben.
Nun stolperte ich im Internet über nachfolgenden Code der mir so aussieht als ob man damit ein Konto auswählen könnte.
Nur kriege ich dies nicht getestet da ich nicht weiß welche Parameter ich der Funktion mitgeben müßte.
Bezogen auf das Bild:
habe ich dann versucht die Funktion mit dieser Sub auszuprobieren:
Sub tt()
Dim Test, myOlApp, myItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Test = Set_Account("Name1", myItem, "Unbenannt - Nachricht (Nur Text)")
End Sub
Leider bemängelt der Debugger bei M bzw. m
benutze, wird falscher Typ bei "Unbenannt - Nachricht (Nur Text)" bemängelt.
Welche Parameter will denn die Funktion? Und, macht sie eigentlich das was ich annehme?
Danke ^ Gruß
Reinhard
'Function sends the settet Account-name as result, if empty, no account is set
Function Set_Account(ByVal KontoName As String, M As Outlook.MailItem, OLI As Outlook.Inspector) _
As String
caption_CmdBar = "Standard"
caption_KontoBtn = "K&onten"
caption_Konto = KontoName
'_______________________________________________________________________
Dim CBs As CommandBars
Dim CB As CommandBar
Dim CBB As CommandBarPopup
Dim MC As CommandBarControl
Set CBs = OLI.CommandBars
CBn = OLI.CommandBars.Count
' Loop Command-Bars....
For CBi = 1 To CBn
Bez = CBs(CBi).Name
If Bez = caption_CmdBar Then
Set CB = CBs(CBi)
CBBn = CB.Controls.Count 'CB ~ CmdBar
' Loop CmdBar-Buttons...
For CBBi = 1 To CBBn
Bez = CB.Controls(CBBi).Caption
If Bez = caption_KontoBtn Then
Set CBB = CB.Controls(CBBi)
MCn = CBB.Controls.Count ' MC ~ Menu-Command
' Loop Konto-Auswahl-Menu-Befehle
For MCi = 2 To MCn
Bez = CBB.Controls(MCi).Caption
Bez = Right(Bez, Len(Bez) - 3)
Debug.Print MCi; ")"; Bez
If Bez = caption_Konto Then
CBB.Controls(MCi).Execute
Set_Account = caption_Konto
Exit Function
End If
' |______________________________________________|
Next MCi
' \_________________________________________________/
End If
' |________________________________________________________|
Next CBBi
' \____________________________________________________________/
End If
' |_________________________________________________________________|
Next CBi
'\____________________________________________________________________/
Set_Account = ""
End Function