Welche Nummer hat das Emailkonto xxx in meinem Outlook

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Welche Nummer hat das Emailkonto xxx in meinem Outlook

    Hallo zusammen,

    Ich habe mehrere Mailkonten und möchte abhänig vom sendenden Programm das eine, oder das andere Mailkonto verwenden.
    Aktuell muss ich immer wenn Outlook sich öffnet das entsprechen Mailkonto auswählen.
    Das nerft mich aber total.

    Ich habe bereits mir einiges zusammengebaut.
    Ich weiß auch (per Hand herausgefunden) dass es sich um die
    .SendUsingAccount = oOutApp.Session.Accounts.Item(x) handelt.

    Nun zu meiner Frage:
    Ich brauche eine Abfrage in der ich herrausfinde welches "x" zur Mailadress "sample@sample.de" gehört.
    In der Abfrage ab Zeile 66 ermittle ich schon die Anzahl der Konten die im Outlook angelegt sind.

    Die Frage ist nur: Welche Kontonummer gehört zu der Mailadresse "sample@sample.de"

    Hier mein Code den ich zusammengebatelt habe.

    Visual Basic-Quellcode

    1. Option Explicit
    2. <!--#include file="%PRJDIR%\script\CosmoOle.vbs"-->
    4. 'Sub SendEmail()
    5. 'MsgBox "Test1"
    7. ' This macro sends an email from any account in Outlook.
    8. ' It checks Outlook for the identifying domain of the desired account
    9. ' and selects it as the From account.
    11. '***************************************************************************************************
    12. '***** Send an Email Using One of Several Accounts in Outlook
    13. '***************************************************************************************************
    15. '***** Define objects
    16. Dim i
    17. Dim Acct_Num
    18. Dim objBkm
    19. Dim objDoc
    20. Dim sSubj
    21. Dim sMsg
    23. 'MsgBox "Test2"
    25. '***** Define distribution list aliases (add as many as necessary).
    27. Dim oaccountName
    28. 'oaccountName = "info@vision4d.de"
    29. oaccountName = "info@eberle-systeme.de"
    32. MsgBox oaccountName, vbOKOnly, "oaccountName"
    34. '***** Create the email
    35. Dim oOutApp
    36. Set oOutApp = CreateObject("Outlook.Application")
    37. Dim oOutMail
    38. Set oOutMail = oOutApp.CreateItem(0)
    39. Set objDoc = oOutMail.GetInspector.WordEditor
    40. Set objBkm = objDoc.Bookmarks("_MailAutoSig")
    42. '***** Get desired account's Outlook Account Number
    44. Dim OutApp
    45. Set OutApp = CreateObject("Outlook.Application")
    49. 'DIM index
    50. 'For index = 1 To 3
    51. ' MsgBox index
    52. ' Next
    54. ' Ensure the length value of the Right() function is correct
    55. ' for the test string to find the desired account
    56. MsgBox "Test3"
    57. For i = 1 To OutApp.Session.Accounts.count
    58. 'Test auf Nummer des Outlook account
    59. If Right(OutApp.Session.Accounts.Item(i), 16) = oaccountName Then
    60. Acct_Num = i
    61. MsgBox i,vbOKOnly,"OutApp.Session.Accounts.Item"
    62. END If
    63. MsgBox i,vbOKOnly,"OutApp.Session.Accounts.count"
    64. Next
    66. '***** Create the email subject line
    68. sSubj = "Insert subject line here"
    70. '***** Create the message for the email body using HTML tags if desired
    72. sMsg = "<font face=""Arial""><font size=2><font color=""rgb(89,102,122)"">" & _
    73. "Insert message here</font></font></font>"
    75. MsgBox i,vbOKOnly,"Test4"
    77. Dim accountNumber
    78. For i = 1 to OutApp.Session.Accounts.count
    79. accountNumber = i
    80. MsgBox accountNumber,vbOKOnly,"accountNumber"
    81. Next
    83. '***** Populate the email fields and send it
    85. On Error Resume Next
    87. With oOutMail
    88. Set .SendUsingAccount = oOutApp.Session.Accounts.Item(2)
    89. ' Add recipients as necessary
    90. .Recipients.Add "info@vision4d.de"
    91. .Subject = sSubj
    92. .HTMLBody = sMsg & .HTMLBody
    93. ' Add attachments as necessary
    94. '.Attachments.Add ("C:\temp\Chart1.png")
    95. '.Attachments.Add ("C:\temp\Chart2.png")
    96. .Send ' Sends email immediately
    97. .Display ' Allows the email to be reviewed before sending
    98. End With
    99. On Error GoTo 0
    101. '***** Close the Outlook connections
    103. Set oOutMail = Nothing
    104. Set oOutApp = Nothing
    106. '***************************************************************************************************
    107. 'End Sub


    Vielen Dank

    Danke für die schnelle Antwort.

    Leider tut das aber nicht was ich will.

    Zur Vertiefung:
    Ich habe meghrere Mailkonten und ich muss herrausfinden welche Nummer das Mailkonto info@eberle-systeme.de hat.
    Dies kann bei meinem Kolegen anders sein.
    Desswegen die Abfrage.
    Leider liefer mir die Abfrage nicht die Nummer "2"

    Hier meine Outlook-Kontoeinstellungen:
    (1) info@vision4d.de (Standard)
    (2) info@eberle-systeme.de
    (3) xxx@xxx.de
    (4) yyy@xxx.de

    Nochmal die Frage:
    wie kriege ich die Nummer von info@eberle-systeme.de herraus.

    vielen Dank

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kissling“ ()

    Das Problem ist vmtl. das Right([...], 16), d. h. die feste Breite von 16. Warum hier überhaupt mit Right arbeiten? Geht nicht auch If OutApp.Session.Accounts.Item(i) = oaccountName?

    Falls doch unbedingt Right benutzt werden muss, weil im Item mehr als nur die reine Adresse drin steht, so muss es was in der Art sein: If Right(OutApp.Session.Accounts.Item(i), Len(oaccountName)) = oaccountName
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende