Thema Datum  Von Nutzer Rating
Antwort
Rot Betreff über VBA-Lösung auswählen
29.07.2020 12:37:25 Markus
NotSolved
29.07.2020 13:33:12 Mase
NotSolved
30.07.2020 05:47:55 Markus
NotSolved
30.07.2020 09:53:54 Mase
NotSolved
30.07.2020 12:04:00 Gast37759
NotSolved
30.07.2020 18:00:09 Markus
NotSolved
30.07.2020 19:32:51 Mase
NotSolved
02.08.2020 16:55:44 Mase
NotSolved
05.08.2020 08:45:17 markus
NotSolved

Ansicht des Beitrags:
Von:
Markus
Datum:
29.07.2020 12:37:25
Views:
112
Rating: Antwort:
  Ja
Thema:
Betreff über VBA-Lösung auswählen
Schönen guten Tag! Ich bin am verzweifeln, seit 3 Tagen suche ich nach einer Lösung, aber es will einfach nicht klappen. Ich möchte beim Betätigen des Feldes "Neue Email" ein Userform öffnen mit der Auswahl von 4 Commandbutton-Knöpfe. Je nach Drücken einer der 4 Tasten füllt sich der Betreff der E-Mail mit einem bestimmten Text. Den ersten Teil habe ich lösen können, also das Userform-Formular öffnet sich bereits, jedoch bei Betätigen der Taste passiert nix. "In ThisOutlookSession" habe ich folgenden Code hinterlegt: Option Explicit Private mobjInspectorsClass As clsInspectors Private Sub Application_Quit() Set mobjInspectorsClass = Nothing End Sub Private Sub Application_Startup() Set mobjInspectorsClass = New clsInspectors Set mobjInspectorsClass.Inspectors = Inspectors End Sub Dann habe ich noch ein Klassenmodul mit dem Namen clsInspectors angelegt und folgende Formel hinterlegt: ption Explicit Private WithEvents mobjInspectors As Inspectors Private Sub Class_Terminate() Set mobjInspectors = Nothing End Sub Friend Property Set Inspectors(ByRef probjInspectors As Inspectors) Set mobjInspectors = probjInspectors End Property Private Sub mobjInspectors_NewInspector(ByVal Inspector As Inspector) If Inspector.CurrentItem.Class = olMail Then UserForm1.show End If End Sub Dann folgt das "Userform1" Formular mit den 4 Button bei Button 1 habe ich folgendes geschrieben Private Sub CommandButton1_Click() Call Mail_ÖFFNEN End Sub Sub Mail_ÖFFNEN() Dim xOutApp As Object Dim xOutMail As Object Dim xMailBody As String On Error Resume Next With xOutMail .To = "" .CC = "xxx@xx.at" .BCC = "" .Subject = "xxx" .HTMLBody = xMailBody .Display 'or use .Send .display End With On Error GoTo 0 Set xOutMail = Nothing Set xOutApp = Nothing End Sub Wie gesagt, es öffnet sich das Userformular jedoch geschieht nach Betätigung des Knopfes gar nix. Kann mir wer bitte helfen...bitte was mache ich falsch. Danke schon im Vorfeld

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Betreff über VBA-Lösung auswählen
29.07.2020 12:37:25 Markus
NotSolved
29.07.2020 13:33:12 Mase
NotSolved
30.07.2020 05:47:55 Markus
NotSolved
30.07.2020 09:53:54 Mase
NotSolved
30.07.2020 12:04:00 Gast37759
NotSolved
30.07.2020 18:00:09 Markus
NotSolved
30.07.2020 19:32:51 Mase
NotSolved
02.08.2020 16:55:44 Mase
NotSolved
05.08.2020 08:45:17 markus
NotSolved