title image


Smiley Re: Anhang agentgesteuert anhängen
mit dem Teil sollte es gehen. Ein paar Einschränkungen habe ich auf die Schnelle alledings nicht ausgemerzt:1. auf der linken Seite deiner Dateinamen (Vor dem ersten Punkt) sollte tunlichst nur die Faxnummer des Empfängers stehen.2. die Daten des einzulesenden Directories sind hard coded3. der Name des Fax Gateways ist hard coded.Und Hier kommt das Script:OPTION publicOPTION declarein den Declarations eingestelltder Rest alles im InitializeSub Initialize' this agent get's all the files from a specific directory and pastes them as an attachment to a mail file. ' the mail file is then send to the files nameDim session As New notessessionDim wksp As New notesuiworkspaceDim db As notesdatabase' definitions for findung the files in the directoryDim strfilename As StringDim strdir As StringDim allfilenames() As StringDim counter As Integer' definitions for mailingDim Newdoc As notesdocumentDim SendToUser As StringDim SendToSubject As StringDim Bodyitem As notesrichtextitemDim Object As notesembeddedobjectDim upperborder As IntegerDim whereIsthePoint As IntegerDim LeftString As StringDim Maildir As String strdir = "c:\Eigene Dateien\*.*"' get all the files in the given directorystrfileName = Dir$(strdir, 0)counter = 0Do While strfileName ""If counter = 0 ThenRedim allfilenames(counter)ElseRedim Preserve allfilenames(counter)End IfAllfilenames(counter) = Strfilenamecounter = counter +1strfilename = Dir$()Loop' for every file create a new document Set db = session.currentdatabasemaildir = "c:\Eigene Dateien\"UpperBorder = Ubound(Allfilenames)counter = 0 For counter = 0 To UpperBorder' build a newdocument to mail itSet newdoc = New NotesDocument( db )' create the sendto field from the file nameWhereisthepoint = Instr(1, Allfilenames(Counter), ".")leftstring = Left(Allfilenames(Counter),WhereIsThePoint - 1)SendToUser = LeftString + "@Fax"SendtoSubject = "your Subject"newdoc.Subject = SendToSubjectnewdoc.Form = "Memo"' create the body field and fill it with tabbed valuesSet Bodyitem = New NotesRichTextItem (NewDoc, "Body" )' append the file to the rtitemSet object = Bodyitem.EmbedObject( EMBED_ATTACHMENT, "", maildir + Allfilenames(counter))' Send the newdoc Document to the UserCall newdoc.Send( False, SendToUser )NextEnd SubHTH Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: