Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.07.2020 12:37:25 |
Markus |
|
|
|
29.07.2020 13:33:12 |
Mase |
|
|
|
30.07.2020 05:47:55 |
Markus |
|
|
|
30.07.2020 09:53:54 |
Mase |
|
|
|
30.07.2020 12:04:00 |
Gast37759 |
|
|
|
30.07.2020 18:00:09 |
Markus |
|
|
|
30.07.2020 19:32:51 |
Mase |
|
|
|
02.08.2020 16:55:44 |
Mase |
|
|
|
05.08.2020 08:45:17 |
markus |
|
|
Lösung gefunden oder aufgegeben? (oT) |
10.08.2020 11:18:34 |
Gast79514 |
|
|
|
10.08.2020 13:52:20 |
Mase |
|
|
|
11.08.2020 13:45:10 |
Gast1774 |
|
|
|
11.08.2020 18:35:49 |
Mase |
|
|
|
11.08.2020 18:36:45 |
Mase |
|
|
|
11.08.2020 19:06:47 |
Mase |
|
|
|
12.08.2020 13:26:36 |
Markus |
|
|
Von:
Gast79514 |
Datum:
10.08.2020 11:18:34 |
Views:
676 |
Rating:
|
Antwort:
|
Thema:
Lösung gefunden oder aufgegeben? (oT) |
Hallo wieder einmal!
Eine Teillösung habe ich schon mal gemacht, aber ich dreh schön langsam durch...
**************THISOUTLOOKSESSION***************
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
UserForm1.show
End Sub
Sub Click1()
UserForm1.Hide
Dim Mail1 As Outlook.MailItem
Set Mail1 = Application.ActiveInspector.CurrentItem
Dim Betreff1
Betreff1 = Mail1.Subject
Mail1.Subject = "[1] " & Mail1.Subject
End Sub
Sub Click2()
UserForm1.Hide
Dim Mail1 As Outlook.MailItem
Set Mail1 = Application.ActiveInspector.CurrentItem
Dim Betreff1
Betreff1 = Mail1.Subject
Mail1.Subject = "[2] " & Mail1.Subject
End Sub
Sub Click3()
UserForm1.Hide
Dim Mail1 As Outlook.MailItem
Set Mail1 = Application.ActiveInspector.CurrentItem
Dim Betreff1
Betreff1 = Mail1.Subject
Mail1.Subject = "[3] " & Mail1.Subject
End Sub
Sub Click4()
UserForm1.Hide
Dim Mail1 As Outlook.MailItem
Set Mail1 = Application.ActiveInspector.CurrentItem
Dim Betreff1
Betreff1 = Mail1.Subject
Mail1.Subject = "[4] " & Mail1.Subject
End Sub
********************USERFORM1***********************************
Private Sub CommandButton1_click()
Call ThisOutlookSession.Click1
End Sub
Private Sub CommandButton2_click()
Call ThisOutlookSession.Click2
End Sub
Private Sub CommandButton3_click()
Call ThisOutlookSession.Click3
End Sub
Private Sub CommandButton4_click()
Call ThisOutlookSession.Click4
End Sub
Habe das jetzt alles so kreiert....es funktioniert tadellos. Jedoch will ich auf eine E-Mail antworten, dann kommt sofort eine Fehlermeldung.
:-(
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.07.2020 12:37:25 |
Markus |
|
|
|
29.07.2020 13:33:12 |
Mase |
|
|
|
30.07.2020 05:47:55 |
Markus |
|
|
|
30.07.2020 09:53:54 |
Mase |
|
|
|
30.07.2020 12:04:00 |
Gast37759 |
|
|
|
30.07.2020 18:00:09 |
Markus |
|
|
|
30.07.2020 19:32:51 |
Mase |
|
|
|
02.08.2020 16:55:44 |
Mase |
|
|
|
05.08.2020 08:45:17 |
markus |
|
|
Lösung gefunden oder aufgegeben? (oT) |
10.08.2020 11:18:34 |
Gast79514 |
|
|
|
10.08.2020 13:52:20 |
Mase |
|
|
|
11.08.2020 13:45:10 |
Gast1774 |
|
|
|
11.08.2020 18:35:49 |
Mase |
|
|
|
11.08.2020 18:36:45 |
Mase |
|
|
|
11.08.2020 19:06:47 |
Mase |
|
|
|
12.08.2020 13:26:36 |
Markus |
|
|