Zuzreit benutze ich die oben genannten Zeile in einem Selbstgeschrieben Mail Sub
ANbei der Code
Sub SendMail (An,Art as String)
REM Standard
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
Dim item As notesitem
Set item = doc.GetFirstItem("Dok")
REM Mail Deklarationen
Dim DocSend As NotesDocument
Dim rtitem As NotesRichTextItem
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
Set DocSend = New NotesDocument(db)
Set rtitem = New NotesRichTextitem(DocSend, "Body")
DocSend.Form ="Memo"
Dim commonuser As String
commonuser = Cstr(session.CommonUserName)
Dim NameAn As String
NameAn = Cstr(Evaluate(|@name([CN];" | & an & | ")|))
.........CODE.....
END SUB
explizit bei diesemaufruf habe ich das Problem.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim item As NotesItem
Dim ItemDok As NotesItem
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
commonuser = session.CommonUserName
flag = workspace.DialogBox( "fMessage" , False , False)
If flag = True Then
Set item = doc.GetFirstItem("send")
Set ItemDok = doc.GetFirstItem("Dok")
If doc.User(0) <> "" Then
For i = 0 To Ubound(doc.User)
If Not item.Contains(doc.User(i)) Then
Call mail(doc.User(i),"INFO")
item.AppendToTextList(doc.User(i))
End If
Next
End If
Ich habe auch nachgeschaut ist ein Wert mit "CN=" in dem an drin.....
SO habe das mal geändert, doch jeztt bekomme ich immernoch ein TypeMissmatch
Änderung:
NameAn = Cstr(Evaluate(|@name([CN];" | & an & | ")|))
zu
Dim NameT As String
NameT = Cstr(an)
NameAn = Cstr(Evaluate(|@name([CN];" | & NameT & | ")|))
Mach den Parameter explizit zum String (das ist doch der Typ, den du eigentlich auch erwartest der Schreibweise nach), das habe ich vorher schonmal geschrieben... Also folgendermaßen sollte die Kopfzeile aussehen:
Sub Mail (An As String, Art As String)
Und genau dieses Vorgehen solltest du dir auch zur Gewohnheit machen, sonst passiert dir so etwas bestimmt nochmal...
habe ich gemacht bringt leider trotzdem nicht den gewünschten erfolg, sondern nur den selben fehler...
Sub Mail (An As String,Art As String)
.....CODE
Dim NameAn As String
NameAn = Cstr(Evaluate(|@name([CN];" | & An & | ")|))
.....CODE
folgender auszug
Dim NameAn As Variant
Dim NameT As String
Dim var As Variant
NameAn = Evaluate(|@Name([CN];" | & an & | ")|) <---- hier schon wieder das type missmatch
NameT = NameAn(0)