Domino 9 und frühere Versionen > ND6: Entwicklung
1 Mail, 2 Empfänger, 2 Mails
DerAndre:
Hi. Grmpl, immer noch kein Zugriff von der Firma aus... ::)
Hier mein Code Snip
Ich weiss, das Save am Ende ist nicht notwendig, habe es aber mal drin gelassen
Servernamen usw habe ich durch Aliase ersetzt.
Sub SendMailEinreicher
%REM
=============================================================================================
| Version | Date | Developer | Changes
=============================================================================================
1.1 07.07.2005 André der
Endbetrag steht in der Wirtschaftlichkeit, keine Berechnung mehr
-------------------------------------------------------------------------------------------------------------------------------------------------------------------
%ENDREM
On Error Goto errorhandle
'---------------------------------------------------------------------------------------------------------------------------
' Für das Mail
'---------------------------------------------------------------------------------------------------------------------------
Dim ws As New notesuiworkspace
Dim s As New notessession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim email As NotesDocument
Dim bodytext As String
Dim authorField As NotesItem
Dim readerField As NotesItem
'---------------------------------------------------------------------------------------------------------------------------
' Persönliche Daten aus Vorschlagsdatenbank
'---------------------------------------------------------------------------------------------------------------------------
Dim vdb As notesdatabase
Dim vview As notesview
Dim vdoc As notesdocument
Set doc = ws.CurrentDocument.Document
Set vdb = s.GetDatabase("Server","Solution\\improve")
If vdb Is Nothing Then
Messagebox"Auf die Vorschlagsdatenbank konnte nicht zugegriffen
werden!"
Goto exitsub
End If
Set vview = vdb.GetView("(personaldata)")
If vview Is Nothing Then
Messagebox"Auf die View --> (personaldata) <-- konnte nicht
zugegriffen werden!"
Goto exitsub
End If
Set vdoc = vview.GetDocumentByKey(doc.sub31_VVNummer)
If vdoc Is Nothing Then
Messagebox"Es wurde kein gültiges Personendokument gefunden"
Goto exitsub
End If
Set db = s.CurrentDatabase
Set email = New NotesDocument( db )
email.SaveMessageOnSend = True
email.Form = "Memo"
Set authorField =email.appendItemValue("authors",s.username)
authorField.isSummary=True
authorField.isAuthors=True
Call authorField.appendToTextList("SolutionsAdministrators")
Call authorField.appendToTextList("Server/Domain")
Set readerField =
email.appendItemValue("readers","ETQ-BVW-Leseberechtigte")
readerField.isSummary=True
readerField.isReaders=True
Call readerField.appendToTextList(vdoc.BVWPersonalData_CanName)
Call readerField.appendToTextList(s.username)
Call readerField.appendToTextList("SolutionsAdministrators")
Call readerField.appendToTextList("Server/Domain")
Call readerField.appendToTextList("ClusterDomain")
Call readerField.appendToTextList("Server2/Domain")
email.sendto = vdoc.BVWPersonalData_CanName
email.BlindCopyTo = "CN=Theo Tester/OU=ORGIV/O=Organisation"
bodytext = "Wir freuen uns Ihnen mitteilen zu können, daß Ihr
Verbesserungsvorschlag mit der Vorschlag Nr. " + doc.sub31_VVNummer(0) + "
angenommen wird. " +Chr(13) +Chr(13)
If doc.sub31_WNutzen(0) = 0 And doc.sub31_Vorabpraemie(0) <> 0 Then
bodytext = bodytext + "Für Ihre Idee erhalten Sie eine
Vorabprämie in Höhe von" +Chr(13) + Chr(13)
bodytext = bodytext + + " " +
Cstr(doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+ Chr(13)
End If
If ( doc.sub31_WNutzen(0) <> 0 And doc.sub31_Vorabpraemie(0) <> 0 )
Then
bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
bodytext = bodytext + + " " +
Cstr(doc.sub31_WNutzen(0) ) + ",-- €" + Chr(13)+ Chr(13)
' bodytext = bodytext + + " " +
Cstr(doc.sub31_WNutzen(0) - doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+
Chr(13)
End If
If ( doc.sub31_WNutzen(0) <> 0 And doc.sub31_Vorabpraemie(0) = 0 )
Then
bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
bodytext = bodytext + + " " +
Cstr(doc.sub31_WNutzen(0)) + ",-- €" + Chr(13)+ Chr(13)
' bodytext = bodytext + + " " +
Cstr(doc.sub31_WNutzen(0) - doc.sub31_Vorabpraemie(0)) + ",-- €" + Chr(13)+
Chr(13)
End If
If doc.sub31_Anerkennung(0) <> 0 Then
bodytext = bodytext + "Für Ihre Idee erhalten Sie eine
Anerkennungsprämie in Höhe von" +Chr(13) + Chr(13)
bodytext = bodytext + + " " +
Cstr(doc.sub31_Anerkennungsprämie(0)) + ",-- €" + Chr(13)+ Chr(13)
End If
If doc.sub31_praemie(0) <> 0 Then
bodytext = bodytext + "Für Ihre Idee erhalten Sie eine Prämie
in Höhe von" +Chr(13) + Chr(13)
bodytext = bodytext + " " +
Cstr(doc.sub31_praemie(0)) + ",-- €" + Chr(13)+ Chr(13)
End If
bodytext = bodytext + "die Ihnen mit einer der nächsten Lohn- oder
Gehaltszahlung überwiesen wird." +Chr(13) + Chr(13)
bodytext = bodytext + "Wir danken ihnen für Ihr Betriebsinteresse und
Ihre Mitarbeit.." +Chr(13) + Chr(13)
bodytext = bodytext + "Mit freundlichen Grüßen." + Chr(13) + Chr(13)
bodytext = bodytext + s.CommonUserName
email.subject = doc.sub31_VVNummer(0) + ": Prämierung Ihres
Verbesserungsvorschlag"
email.body = bodytext
email.PostedDate = Now
email.From = s.username
email.author = s.username
email.Logo = "StdNotesLtr24"
Call email.Send (True)
Call email.save(True, True, True)
Goto exitsub
errorhandle:
Messagebox "SendMailEinreicher -> In Zeile: " & Erl() & " Fehler: " &
Err() & " " & Error()
Exit Sub
exitsub:
End Sub
So, ich hoffe ich habe keine Tomaten auf den Augen und keine Bohnen in den Ohren.... :P
Wenn noch was fehlt, bitte Info, ich glaub ich bin im Moment voll Betriebsblind.
Gruss
André
DerAndre:
Moin.
Wollte den Thread nur nochmal nach oben bringen und Fragen ob jemand was gesehen hat, was ich übersehen haben könnte.
So ein Käse, komme leider im Moment in der Firma nur auf die Startseite, kann nichts mehr lesen... :P
Gruss
André
koehlerbv:
Was sagt denn überhaupt der Debugger dazu?
Für unser einen ist es ja schwer, einen Code nachzuvollziehen, der auf Daten aufsetzt, die wir nicht haben. Das wird daher auch kaum einer gemacht haben.
Fakt ist auf jeden Fall: Was der Debugger vom dem NotesDocument.Send für NotesDocument anzeigt, wird dann auch gesendet. Irgendwelches "Vermischen" kannst Du getrost ausschliessen.
Bernhard
PS. Noch zwei Anmerkungen zu Deinem Posting, die aber beide nichts mit Deinem Problem zu tun haben:
- Verwende als String-Concatenator unbedingt "&" und nicht "+". Die Doku schreibt dies wirklich nicht ohne Grund vor. Hierzu gibt es auch einige Anti-Beispiele hier im Forum.
- "Bodyfeld ist nur Textfeld ( muss das ein RTF sein? Kann eigentlich nicht, da die Mail ja 2x richtig erscheint )" Nein, das hat absolut keine Auswirkung.
DerAndre:
Hi Bernhard.
Das mit dem Stringconcatenator werde ich machen, hatte wohl wieder eine falsche Syntax im Sinn.
Typisch für meine Person. Werde ich dann mal am Montag machen. das offensichtliche das offensichtliche.
Danke
André
koehlerbv:
Der Stringconcenator hat aber ganz sicher mit Deinem eigentlichen Problem zu tun. Das gilt "nur" für "Ordnung und Sauberkeit im Schlachthaus".
Bernhard
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln