Domino 9 und frühere Versionen > ND7: Entwicklung
Per VBA Meeting in Notes Kalender eintragen und Einladungen senden
Jenny85:
Hallo,
also hier mein Code:
Public cbList As Variant
Private Sub CommandButton2_Click()
On Error Resume Next
Sheets(ComboBox1.Value).Activate
Call Kalendereintrag
Unload Me
End Sub
Private Sub userform_Initialize()
With ShEinstellungen
cbList = .Range(.Cells(10, 5), .Cells(Rows.Count, 5).End(xlUp)).Value
End With
With Me.ComboBox1
.MatchEntry = fmMatchEntryNone
.List = cbList
End With
End Sub
Private Sub ComboBox1_Change()
Dim dic As Object
Dim a As Variant
Set dic = CreateObject("Scripting.Dictionary")
For Each a In cbList
If LCase(Left(a, Len(Me.ComboBox1.Value))) = LCase(Me.ComboBox1.Value) Then dic(a) = 1
Next a
Me.ComboBox1.List = dic.keys
Me.ComboBox1.DropDown
Set dic = Nothing
End Sub
Private Sub combobox1_Click()
On Error Resume Next
Sheets("Einstellungen").[G7] = ComboBox1.Value
Sheets("Einstellungen").[G8] = Sheets(ComboBox1.Value).Range("B3").Value
Sheets(ComboBox1.Value).Activate
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
So und dann hatte ich es erst so:
Sub Kalendereintag()
Call SendNotesTermin(Sheets(ComboBox1.Value), "shecky_darling@web.de", Sheets(ComboBox1.Value).Range("B3").Value, Sheets(ComboBox1.Value).Range("B7").Value, [60], Sheets(ComboBox1.Value).Range("B8").Value, "Meeting", [3])
End Sub
und habs dann mit einer "Vereinfachen Variante" ... zumindest dachte ich das ... probiert:
Private Sub CommandButton1_Click()
Call SendNotesTermin("Test", "shecky_darling@web.de", "Termintext", "04.09.2012", [60], "Kempten", "Meeting", [3])
End Sub
Vielen Dank schon mal für deine Hilfe!
VG Jenny
etofi:
--- Zitat von: Jenny85 am 29.08.12 - 10:38:25 ---Call SendNotesTermin("Test", "shecky_darling@web.de", "Termintext", "04.09.2012", [60], "Kempten", "Meeting", [3])
--- Ende Zitat ---
Du musst schon die Werte MinsDuration und AppointmentType im definierten Format übergeben.
Sprich als Integer und String, die Eckigen Klammern waren nur als Platzhalter für eine Variable gedacht...
Call SendNotesTermin("Test", "shecky_darling@web.de", "Termintext", "04.09.2012", 60, "Kempten", "Meeting", "3")
Jenny85:
Hallo,
naja nach langem hin und her habe ich eingesehen, dass ich es einfach nicht hinbekommen werde mit einer Funktion zu arbeiten ... :'(
also hab ich mir das ganze jetzt einfach in ein Sub umgebastelt. Falls jemand das gleiche Problem haben sollte wie ich:
Sub Vorlagefüllen()
Sheets("Schulungsunterlagen").Activate
For i = 10 To 55
y = Sheets("Schulungsunterlagen").Cells(i, 2).Value
For x = 17 To 31 Step 3
If Cells(i, x) <> "" Then
Sheets("Einstellungen").Range("J22").Value = Sheets("Schulungsunterlagen").Cells(i, x + 1).Value
Sheets("Einstellungen").Range("J19").Value = Sheets(y).Range("B3").Value
Sheets("Einstellungen").Range("J20").Value = Sheets(y).Range("K11").Value & "," & Sheets(y).Range("K12").Value & "," & Sheets(y).Range("K13").Value & "," & Sheets(y).Range("K14").Value
Sheets("Einstellungen").Range("J23").Value = Sheets("Schulungsunterlagen").Cells(i, x).Value
Sheets("Einstellungen").Range("J24").Value = (CDate(Sheets("Schulungsunterlagen").Cells(i, x + 2).Value) - CDate(Sheets("Schulungsunterlagen").Cells(i, x + 1).Value)) * 60 * 24
Sheets("Einstellungen").Range("J25").Value = Sheets(y).Range("B9").Value
Sheets("Einstellungen").Range("J26").Value = "Seminar"
Sheets("Einstellungen").Range("J27").Value = "3"
Call SendNotesTermin
Else
Exit For
End If
Next x
Next i
Sheets("Start").Activate
End Sub
Sub SendNotesTermin()
On Error GoTo proc_error
Dim objNotesSession As Object
Dim objNotesDatabase As Object
Dim objNotesDocument As Object
Dim objItem As Object
Dim strServerName As String
Dim strServerEinzelname() As String
Dim strMailDbName As String
Dim strUserName As String
Dim strUserEinzelname() As String
Dim strUserMail As String
Dim datStart As Date
Dim datEnde As Date
Dim intZaehler As Integer
Dim dblAnzahlTage As Double
Dim strCSTrack(2) As String
Dim intAnzahlEmpfaenger As Integer
Dim strStorageRequiredNames() As String
Dim pstrSubject As String
Dim pstrRecipient As String
Dim pstrMailBody As String
Dim AppDate As Date
Dim StartTime As Date
Dim MinsDuration As Integer
Dim pstrLocation As String
Dim pstrCategories As String
Dim AppointmentType As String
'Vabriablen bestimmung in Einstellungen J19-J27 über Sub Vorlagefüllen()
a = Sheets("Einstellungen").Range("J19").Value
b = Sheets("Einstellungen").Range("J20").Value
c = Sheets("Einstellungen").Range("J21").Value
d = Sheets("Einstellungen").Range("J22").Value
e = Sheets("Einstellungen").Range("J23").Value
f = Sheets("Einstellungen").Range("J24").Value
g = Sheets("Einstellungen").Range("J25").Value
h = Sheets("Einstellungen").Range("J26").Value
i = Sheets("Einstellungen").Range("J27").Value
pstrSubject = a
pstrRecipient = b
pstrMailBody = c
AppDate = e
StartTime = d
MinsDuration = f
pstrLocation = g
pstrCategories = h
AppointmentType = i
'Bei ganztägige Veranstaltung auf 4 Uhr Starttag und 22 Uhr Endtage setzen
--> ab hier geht es dann wieder ganz normal wie oben weiter.
Vielen Dank für die Unterstützung und den tollen Code!
VG Jenny
mor_lana:
--- Zitat von: etofi am 26.03.12 - 14:42:17 ---Wir haben jetzt Notes 8.5.2 das hat leichte Anpassungen erforderlich gemacht.
Anbei der neue Code
Grüße
Eric Trösch
--- Ende Zitat ---
Herzlichen Dank für den Code.
Grüße
Martin
Jenny85:
Hallo zusammen,
in der Umsetztung ist jetzt doch noch ein unerwarteter Fehler aufgetreten, ich hoffe jemand kann mir sagen woran das liegt....
Wenn ich den Termin erstelle, wird er bei mir richtig angezeigt. Die eingeladenen Personen bekommen die Einladung allerdings ohne Betreff ... obwohl dieser in meinem Kalender angezeigt wird.
Weis jemand wo das Problem liegt??
Vielen Dank vorab!
Grüße Jenny
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln