Thema Datum  Von Nutzer Rating
Antwort
Rot Aufgabenerstellung Outlook
 01.02.2017 17:25:47 Arbeiter
NotSolved

Ansicht des Beitrags:
Von:
Arbeiter		 Datum:
01.02.2017 17:25:47		 Views:
1112		 Rating:
     
Antwort:
  Ja
Thema:
Aufgabenerstellung Outlook

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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 !!

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Aufgabenerstellung Outlook
 01.02.2017 17:25:47 Arbeiter
NotSolved