Hallo zusammen,
mit folgendem Code war es mir möglich neue E-Mails automatisch mit der Standardemail-Adresse in Outlook 2010 zu versenden, egal in welchem E-Mail-Konto ich mich gerade befinde (detaillierte Anleitung hier: http://www.sevenforums.com/tutorials/129318-outlook-2010-always-send-default-account.html):
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Name of Default Account" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub
Wie muss ich den obigen Code ändern, damit ich eine neue Registerkarte erstelle, die auch bei "Antworten / Allen Antworten" funktioniert? Hintergrund ist folgendes: wir verwenden einen Exchange-Server, um die Mails abzuholen, allerdings wollen wir die Antwort-Mails über die Standard-Email-Addy versenden (was nicht die Absenderadresse des Exchange-Servers ist!). Daher brauchen wir eine Lösung zu, aber bisher haben wir keine gefunden.
Danke für die Hilfe vorab!
|