Outlook VBA ändern Senden mit Konto bei der item-laden

Ich versuche zu ändern, die Vom Konto, wenn ein Element geladen in Outlook 2010 mit Hilfe von VBA. Ich habe zwei Konten, ein gmail-Konto und ein POP3.

Beim Antworten, alle Antworten und die Weiterleitung von Outlook standardmäßig das Konto, das die E-Mail empfangen wurde, durch. Wenn ich eine E-Mail über Gmail, möchte ich Antworten mit einem POP3-Konto. Obwohl mein Standard-Konto ist die POP3-Konto in Outlook änderungen, die es zu Gmail.

Dies ist, was ich habe, so weit. Leider bekomme ich die Fehlermeldung: Run-time error '-6936698555 (d6a70005)': Sie verfügen nicht über die entsprechende Berechtigung, um diesen Vorgang auszuführen.

Private Sub Application_ItemLoad(ByVal Item As Object)
    Set myObj = GetCurrentItem()
    If TypeName(myObj) = "MailItem" Then
        Set OutApp = CreateObject("Outlook.Application")
        Set oMail = OutApp.CreateItem(olMailItem)
        Dim oAccount As Outlook.Account

        Set oMail = myObj

        oMail.SendUsingAccount = oMail.SendUsingAccount.Session.Accounts.Item(1)
    End If
End Sub


Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application

    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select

    Set objApp = Nothing
End Function

Werde ich über das der richtige Weg ist, indem Sie es in der Item laden? Warum habe ich nicht die Berechtigung zum ändern der Absender? Ist es, weil VB nicht erstellen der E-Mail?

InformationsquelleAutor BlueBeardo | 2013-08-20

outlook-2010 vba

Ich bin zu spät zu dieser party, aber ich habe versucht, etwas zu tun, sehr ähnlich und lief auf Ihre Frage/code. Ich schaffte es, um es arbeiten.

Das problem ist, dass GetCurrentItem() ist die Rücksendung der E-mail-Nachricht aus Ihrem Posteingang (oder wo auch immer). Was Sie ändern müssen, ist die neue Nachricht erstellt, indem Sie auf "Antworten".

Nahm ich Ihren code ein und verändert es. Ich habe eine Antwort Fall, dass änderungen, die SendUsingAccount-Eigenschaft des Antwort. Die ItemLoad Ereignis überprüft das 'Bis' - Eigenschaft der aktuellen E-mail-Element, um zu entscheiden, ob oder nicht, um das Antwort-Ereignis.

Public WithEvents SecondAcctMsg As MailItem

Private Sub Application_ItemLoad(ByVal Item As Object)
    Set myObj = GetCurrentItem()
    If TypeName(myObj) = "MailItem" Then
        Select Case myObj.To
            Case "<relevant email address>"

                Set SecondAcctMsg = myObj

        End Select
    End If
End Sub


Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application

    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"

            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"

            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select

    Set objApp = Nothing
End Function

Private Sub SecondAcctMsg _Reply(ByVal Response As Object, Cancel As Boolean)

   ' Change Accounts index to relevant account
    Response.SendUsingAccount = Application.Session.Accounts(2)

End Sub

InformationsquelleAutor codeonabike

0

Ich denke, das mailitem sollte festgelegt werden, mithilfe der folgenden:
```
Set oMail = OutApp.CreateItem(olMailItem)
```
festlegen und die Anwendung sollte entweder mit:
```
Set OutApp = CreateObject("Outlook.Application")
```
wenn outlook nicht geöffnet ist oder wenn die folgende ist:
```
Set OutApp = GetObject(, "Outlook.Application")
```
Habe ich nicht verwendet SendUsingAccount, ich vermute, Sie brauchen würden, um das Konto zu Ihrem alternativen Konto. Ich habe verwendet, SendOnBehalfOfName vielleicht funktionieren würde, z.B.
```
oMail.SentOnBehalfOfName = "Your POP3 account name"
oMail.Send
```
Ich bearbeitet meine post oben zu lehnen Ihren Empfehlungen, aber ich habe immer noch den gleichen Fehler mit SendUsingAccount.
Ich habe gesehen, SentOnBehalfOfName verwendet für 2003 und niedriger Outlook, aber ich möchte mit SendUsingAccount seit es wurde im Jahr 2007 eingeführt. Ich würde es gerne so Aussehen, wie es kam direkt frop mein POP3-Konto.
Sie könnten versuchen, überprüfen Sie, dass die Google Mail wurde vollständig heruntergeladen, um das POP3-Konto wie hier beschrieben office-outlook.com/outlook-forum/index.php/m/53395
Vielleicht werde ich über diese nach hinten. Ich bin versucht abfangen in einer neuen/Antworten/weiterleiten/replyall-Befehl von outlook. Derzeit nutze ich meinen eigenen makro-Taste, wählt das richtige Konto und eine Nachricht erstellt. Die Sache, die ich nicht mochte, war, mit Antworten und Weiterleitungen, die Rechtschreibprüfung würde prüfen, ob die gesamte E-Mail, nicht nur die neue Nachricht. Gibt es eine Möglichkeit, dass zu beheben? Wenn dem so ist, dass wirklich löst mein Hauptproblem.
versuche zum abfangen einer neuen/Antworten/weiterleiten/replyall-Befehl" superuser.com/questions/327614/...

InformationsquelleAutor Graham Anderson

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.