Guten Tag Zusammen,
ich habe folgendes vor.
Ich möchte ein Makro erstellen, welches automatisch AUfgaben per Outlook an Kollegen versendet. Die Empfänger sollen über Checkboxen ausgewählt werden, sowie der Name der Aufgabe über Texteingabe erstellt werden.
Hier mein bisheriger "Vortschritt". Ich bekomme es jhedoch einfach nicht hin die Verbindung zwischen Formular und dem Code herzustellen.. Bin absoluter Anfänger muss ich dazu sagen.
Um Hilfe bin ich dankbar !!
Hier die Form:
und der Text zur Form:
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CheckBox3_Click()
End Sub
Private Sub CheckBox4_Click()
End Sub
Private Sub CheckBox5_Click()
End Sub
Private Sub CommandButton1_Click()
FormAufgabenerstellung.Hide
End Sub
Private Sub Label9_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload Me
End Sub
Und hier der Code ansich:
Sub AssignTask()
FormAufgabenerstellung.Show
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = Application.CreateItem(olTaskItem)
myItem.Assign
Set myDelegate = myItem.Recipients.Add("beispiel@beispiel.de")
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = ""
myItem.DueDate = Now + 30
myItem.Display
myItem.Send
End If
End Sub
DANKE !!
|