Hallo zusammen,
ich habe folgendes Script erzeugt welches eine Mail (erstmal an mich) verschickt.
Soweit so gut. Ich versende die Dokument Nr die zum finden des Doks notwendig ist mit in Subjekt etc.
Einfacher währe an dieser Stelle einen Doclink mit zu senden.
Habt Ihr eine Idee ob und wie das geht ??
Gruss
Bernd99
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim a As Variant, b As Variant, c As Variant
Set uidoc = workspace.CurrentDocument
If uidoc.FieldGetText( "NeinJa_30" )="JA" Then
a= uidoc.FieldGetText("MocNr")
b= uidoc.FieldGetText("MocBeschreibung")
c= uidoc.FieldGetText("MocBetrieb")
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim Mailan As Variant
Mailan="Bernd Diehm/"
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = Mailan
doc.Subject = "Es wurde ein MoC mit USGQ- Relevanz erstellt. - MoC Nr." & a &" Titel :" & b
doc.body = "Bitte sehen Sie in der MoC- DB den MoC mit der Nr.: " & a &" Titel: " & b &"der Gruppe: "& c
Call doc.Send( False )
Messagebox ( "Es wurde eine Mail an US, AS und QM gesendet, da das MoC USGQ relevant ist. ")
End If