Mit VBA Email versenden aus 2. Postfach

  • Access

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mumpel.

    Mit VBA Email versenden aus 2. Postfach

    Hallo,

    ich habe folgendes Problem. Ich konnte unter Access 2010 über Outlook 2010 eine Email aus Postfach Nummer 2 versenden mit dem Absender von Postfach 2. Nun nutze ich Outlook 2013 und habe das Problem, das immer vom Absender Postfach 1 versendet wird, egal was ich mache. Einzig, ich ändere das Standardpostfach hilft. Meine Frage ist daher, wurde was geändert in 2013? Es hilft auch nicht, das Konto zu definieren, oder die Mailadresse einzutragen.

    Jemand eine Idee?

    VB.NET-Quellcode

    1. Set DB = CurrentDb
    2. On Error Resume Next
    3. Dim OutlookApp As Object
    4. Set OutlookApp = GetObject(, "Outlook.Application")
    5. If Err <> 0 Then
    6. Shell "Outlook.exe"
    7. MsgBox "Bitte warten Sie bis Outlook gestartet ist.", vbOKOnly, "Information"
    8. Else
    10. End If
    11. Dim objApp As Outlook.Application
    12. Dim objNS As Outlook.NameSpace
    13. Dim objFolder As Outlook.MAPIFolder
    14. Dim objDummy As Outlook.MailItem
    15. Dim objRecip As Outlook.Recipient
    16. Dim objmail As Outlook.MailItem
    17. Dim strMsg As String
    18. Dim strName As String
    19. On Error Resume Next
    21. NachrichtText = Me.Body
    22. Set UserName = Me.frm_main_mail
    23. Set Computer = Me.frm_main_computername
    24. Set infektionsdatum = Me.frm_main_datum
    25. SubjectText = "Computervirenvorfall"
    27. strName = email@privat.de
    28. 'strName = "Text"
    30. Set objApp = CreateObject("Outlook.Application")
    31. Set objNS = objApp.GetNamespace("MAPI")
    32. Set objDummy = objApp.CreateItem(olMailItem)
    33. Set objRecip = objDummy.Recipients.Add(strName)
    35. objRecip.Resolve
    37. If objRecip.Resolved Then
    38. 'MsgBox "Bitte prüfen" & objRecip.Resolve, vbOKOnly, "Information"
    39. On Error Resume Next
    40. Set objFolder = objNS.GetSharedDefaultFolder(objRecip, Outlook.OlDefaultFolders.olFolderInbox)
    41. If Not objFolder Is Nothing Then
    42. Set objmail = objFolder.Items.Add
    43. With objmail
    44. .To = UserName
    46. .Subject = SubjectText
    47. .Attachments.Add "\\Virusvorfall.pdf"
    48. .HTMLBody = NachrichtText
    49. .HTMLBody = Replace(.HTMLBody, "%Computer%", Computer)
    50. .HTMLBody = Replace(.HTMLBody, "%infektionsdatum%", infektionsdatum)
    51. '.display
    52. .Send
    53. End With
    56. End If
    57. End If
    58. itemcount = itemcount + 1
    59. Me.frm_main_angeschrieben = Date
    61. On Error GoTo 0
    62. End If
    63. End If
    64. End If
    65. End If

    Hallo!

    petaod schrieb:


    [...] verwendet man SentOnBehalfOfName [...]

    Aber nur wenn man einen Exchange-Server hat. Ab Office 2007 kann man SendUsingAccount ( Set .SendUsingAccount = .Session.Accounts.Item("Kontoname") ) nutzen. Funktioniert aber nur wenn für jeden Emailadrresse eine eigene Ordnerstruktur (PST-Datei) existiert.

    Gruß, René

Facebook
Telefonspende