Probleme mit Adressbuchprüfung bei automatischen e-mail versand

[dima]

Client 6.5.5


Hi ich, Dimitri, bins wieder
hoffe ihr könnt mir ein paar Tips geben

Mein Prob ich will im Workflow automatisch email versenden
klapp soweit, nur wenn auch im Persöhnlichen adressbuch schon der selbe Eintrag vorhanden gibt es ne Fehler Meldung. Mail kann nicht gesendet werden, mehrere Entsprechungen in & Adreßbüchern gefunden.


ich hab nen Workaround gefunden

http://atnotes.de/index.php/topic,31241.0.html


das man einfach  zum User die  Organization & "@DEINEDOMAENE" an
maildoc.sendto mit angibt


mein Problem es gibt dummerweise zwei Domains

und wenn die person die ne mail bekommen soll im Feld Ausgewählt wird (Typ Name,unter Steuerung  Adressdialogfeld für Auswahl verwenden)

speichert er nicht die Domän ab

wie komme ich sonst an die Domän dran


könnt ihr mir allgemein ein Tipp geben wie ich es geht  gehen kann, kann auch net sagen die müssen alle ihre Privatadessbücher leeren.

Vielen vielen dank für die bisherige Unterstützung

mfg dimitri

[jBubbleBoy]

Ich hatte auch das Problem, meine Lösung war das ich die E-Mail (Notesdocument) in der mail.box des Servers gespeichert habe, anstatt diese zu versenden.

[Cube]

Servus Dimitri,

ohne genau den Ablauf des Workflows zu kennen; wenn Du Dir ne eigene Ansicht zum greifen der Mail-Empfänger ins Names setzt, dann könntest Du auf eine spezielle Spalte zugreifen, wo die gewünschten Infos bzgl der Domäne mit drin stehen.

Stichwort Designer-Help: @Word

Die Domäne könnte ja dann in einem Hidden-Field im Dokument mit abgespeichert werden, und ggf.
wiederverwendet werden


Vieleicht wäre das eine Option?


Grüße Tim

[dima]

@ Tim wenn
teste ich mal
Analog zu

http://atnotes.de/index.php/topic,26037.0.html

Mail via mail.box des Servers verschicken.
Also:
Dim dbMailbox As New NotesDatabase("","")
Set dbThis = session.CurrentDatabase
Call dbMailbox.Open( dbThis.server, "mail.box" )

Dann:
Set docMail = dbMailbox.CreateDocument

Das Mail entsprechend füllen,

und dann:
Call docMail.Save( True, False )


@jBubbleBoy  ist auch ne Möglichkeit ich versuche mal zuerst die von Tim

dank vielmals

[koehlerbv]

Obicht - es kann sein, dass es gar keine DB namens MAIL.BOX auf dem Domino gibt!

Bernhard

[jBubbleBoy]

OK, aber das ist echt selten
Ich nutze auch eine Funktion die über mail1.box bis mail9.box solange eine "mail.box" sucht bis eine gefunden wurde.
Bisher lief das ohne Probleme.

Code

Function getMailBox(server as String) As notesdatabase
	Dim a%
	Dim db As New NotesDatabase(server,"mail.box")
	For a = 1 To 9 
		If db.IsOpen = False Then Set db = New notesdatabase(server,"mail" & a & ".box")
	Next
	Set getMailBox = db
End Function

[koehlerbv]

@Blasenjunge: Genau das meinte ich damit 

Bernhard

[Cube]

@dima;

Das dürfte sogar mit Formelsprache gehen; mach' Dir ne Ansicht mit 2 Spalten ins names.nsf:

- LastName + ", " + FirstName  - sortiert, zum besseren Suchen
- FullName + "#" + MailDomain

dann einen Button ins WF-Dokument, wo Du Dir mit ner Picklist die 2 Spalte geben läßt
dann nur noch die Werte verteilen...

Mail := @Word(tmpString;"#";1);
Domäne := @Word(tmpString;"#";2);

etc...

Das sollte funktionieren

Ciao und schönes Wochenende; Tim

[dima]

Könnt ihr mir ein Tip geben was ich falsch mache es will einfach net klappen

p.s.: kriege keine Fehlermeldung aber auch keine mail

Sub Senden(link As Notesdocument,Empfaenger As String, Betreff As String, Text As String)
   
   Dim session As New NotesSession
   Dim currentdb As NotesDatabase
   Dim mailsession As New NotesSession    
   Dim maildb As New NotesDatabase( "", "" )
   
   Set currentdb = session.CurrentDatabase
   Set maildb = getMailBox(currentdb.server)
   
   Set docMail  = maildb.CreateDocument
   
   docMail.Form = "Memo"
   docMail.From =mailsession.commonusername
   docMail.SendTo = Empfaenger
   docMail.Subject = Betreff
   docMail.PostedDate = Now()
   docMail.ComposedDate = Now()
   docMail.DeliveredDate = Now()
   Set mailbody = docMail.CreateRichTextItem( "Body" )
   
      ' Anrede einfügen
   Call mailbody.appendtext ( "Sehr geehrte Damen und Herren," )
   Call mailbody.addnewline (2)
   ' Text
   Call mailbody.appendtext (Text )
   ' Link
   
   Call mailbody.appenddoclink ( link, "Bitte klicken Sie auf den Link", "")
   
   
   
   
   Call mailbody.addnewline(4)
   Call mailbody.appendtext ( "Dies ist eine automatisch generierte Mail. Bitte antworten Sie nicht darauf." )
   
   Call docMail.save(True, False)
   
End Sub


nutze die getMailBox Funktion von jBubbleBoy

mfg dima

[TRO]

liegt die DaBa, in der dieser Code ausgeführt wird eventuell lokal und nicht auf dem Server?


Thomas

[dima]

die ist auf nem server


dimitri

[jBubbleBoy]

Liegt die Mail in der mail.box und kann nicht zugestellt werden?

[dima]

kann ich mir die mail.box  irgendwie anschauen hab nur entwicklungsrechte für meine DB auf dem server

dimitri

[jBubbleBoy]

Auch wenn die mail.box die Endung ".box" hat kann diese wie eine normale nsf-Datenbank geöffnet werden, mit ACL usw..
Einfach mal öffnen, aber dabei die ACL-Rechte beachten.