Die oben genannten sind gut .

Savemoon wird auch explodieren genauso wie eleon gate

Für Langzeit ist bnb gut

...zur Antwort

Einfach testen.. Hebel ziehen, drücken etc ist ganz einfach

...zur Antwort

Ja das kann ich machen.

Ich schreibe dir einfach mal deinen ganzen Code.

  • Füg das alles einfach ein:
Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 Call Imbiss
End Sub

Sub Imbiss()

Dim obj As Object
Dim oReply As Outlook.MailItem
 
    Select Case True
        Case TypeOf Application.ActiveWindow Is Outlook.Inspector
            Set obj = Application.ActiveInspector.CurrentItem
        Case Else
            With Application.ActiveExplorer.Selection
                If .Count Then
                    Set obj = .Item(1)
                End If
            End With
            
            If obj Is Nothing Then
                Exit Sub
            End If
    
        End Select
    If TypeOf obj Is Outlook.MailItem Then
    
        Set oReply = obj.Reply
        
        With oReply
            .SendUsingAccount = .Session.Accounts("senf@wurst.de")
            .Display
        End With
    End If
End Sub
...zur Antwort

Hallo,

bei VBA gibt es generelle Events die für Office mitgeliefert werden.

Hier ist ein Event was getriggert wird wenn man eine EMail sendet.

https://docs.microsoft.com/de-de/office/vba/api/outlook.application.itemsend

Bau diese Sub in deinen Code ein:

myOlApp_ItemSend

Dieser Code muss vor der ItemSend Sub ein gefügt werden:

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 

Lösch dann den ganzen Inhalt bis "end sub" und call deine imbiss sub.

call Imbiss
...zur Antwort

Bei einer Einbahnstraße ordnet man sich immer in die Richtung ein in die man abbiegen will.

Bei einer normalen Straße immer auf der rechten Seite

...zur Antwort