Empfangsbestätigung

[Fbaum]

Hallo meiteinander,
ich möchte gerne eine automatische Rückantwort generieren für ein Dokument mit einem Autoren-Feld.
Wie kann ich Notes sagen, daß wenn das Dokument geöffnet wird automatisch eine Mail an die Adresse des Autoren-Felds generiert und gesendet wird?
Bin für jeden Tip dankbar...
Gruß Frank

[NotesBug]

DU kannst im QueryOpen ein Mail generieren und abschicken (mit LotusScript)

[Axel]

Hi,

das Script im QueryOpen - Event (oder PostOpen-Event)könnte so aussehen.

...
Dim maildoc As NotesDocument
Dim doc As NotesDocument

Set doc = Source.Document

If Not doc.IsNewNote Then
 Set maildb = New NotesDatabase("","")
 Call maildb.OpenMail

 Set maildoc = New NotesDocument(maildb)
 maildoc.Form = "Memo"
 maildoc.SendTo = doc.AutorenFeld
 Call maildoc.Send(True)
End If

...

Ich hoffe das hilft dir weiter

Axel

[Fbaum]

Was muß ich da eingeben...?
Kann mit den 2 Einträgen nicht allzu viel anfangen, weil ich mich in Lotus Script noch nicht so gut auskenne. Will das aber ändern...
Vielen Dank an Euch schon mal...!!!

[Fbaum]

Seh ich das richtig, daß der Eintrag "AutorenFeld"

maildoc.SendTo = doc.AutorenFeld

so abgeändert werden muß,
wie meine Feldbezeichnung heißt...?

[Fbaum]

Sorry, die Einträge haben sich irgendwie überschnitten.
Habe das Script eingegeben und bekommen folgende Meldung:
In der Zeile

Set maildoc = New NotesDocument(maildb)

kommt Type Mismatch on: MAILDB...?!?

[Axel]

Hi,

Seh ich das richtig, daß der Eintrag "AutorenFeld"

maildoc.SendTo = doc.AutorenFeld  

so abgeändert werden muß,
wie meine Feldbezeichnung heißt...?

Das siehst du richtig, da muß dein Feldname hin. Da ich nicht wußte wir dein Autorenfeld heißt, habe ich was allgemein gültiges genommen.

kommt Type Mismatch on: MAILDB...

Upps, da hab ich doch glatt was vergesssen.
Hier nochmal komplett, erweitert um eine Fehlerabfrage, ob Zugriff auf Mail-Datenbank möglich:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, IsNewDoc As Variant, Continue As Variant)

Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim doc As NotesDocument

Set doc = Source.Document

If Not doc.IsNewNote Then
 Set maildb = New NotesDatabase("","")
 Call maildb.OpenMail
 If Not maildb.IsOpen Then
   Messagebox "Fehler beim Zugriff auf Mail-Datenbank"
   Exit Sub
 End If

 Set maildoc = New NotesDocument(maildb)
 maildoc.Form = "Memo"
 maildoc.SendTo = doc.AutorenFeld
 Call maildoc.Send(True)  
End If

End Sub

Sollte so jetzt aber funktionieren. Habe ich aus einem Agenten entnommen, der bei mir läuft.

Gruß
Axel

[Fbaum]

OK...Keine Fehlermeldung mehr.
Wo muss´n das rein (Maske,Ansicht,Odrner...?)
Wenn ich das Script in einen Agenten mache passiert gar nix...!

[Axel]

Hi,

da das Script ausgeführt werden soll, wenn ein Dokument geöffnet wird, muß es in die Maske rein.

Dort entweder in den Queryopen- oder Postopen-Event.
Rein gefühlsmäßig würde ichs eher in Postopen tun, da hier alle Variablen (z.B. Source etc.) auf jeden Fall sauber zur Verfügung stehen. das ist in Queryopen nicht immer der Fall.

Gruß
Axel

[Fbaum]

Also gut... Werde ich ausprobieren. Falls es nicht funktioniert melde ich mich nochmal...
Aber vielen Dank schon mal für die Hilfe.
Gruß Frank