|
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
|