Domino 9 und frühere Versionen > ND8: Entwicklung

Lösen eines pdfs aus einem Mime Mail LotusScript

<< < (2/3) > >>

fsinani:
Bis gestern habe ich das tatsächlich auch so gehandhabt, bis der Einkauf mir mitteilte, die Rechnung eines Absenders nicht im Filesystem liegt, aber die Mail bereits in den Mailordner "erledigt" verschoben wurde.

In diesem Fall hat die IF-Anweisung

If Not IsEmpty(rtitem.embeddedobjects)  Then


Keine Übereinstimmung und springt raus. Bei allen anderen Mails bisher (und auch anderen seit gestern ankommenden) läuft das so. Nur dieser eine Absender (glaube ich zumindest), der seine Mail aus Apple OSX mit Mail versendet, da greift die Anweisung nicht.

hier der vollständige Code aus meinem Initialize des Agenten



--- Code: --- Set s = New NotesSession
Set DB = s.Currentdatabase
Set Inbox = db.Getview("($Inbox)")

filepath1 = "d:\extract\orig\"
filepath2 = "d:\extract\kopie\"

RecipientTest = ""


' Get First Mail in Inbox
Set maildoc = Inbox.Getfirstdocument()
' Prepare to see, if Mail is Mime
s.ConvertMIME = False
Set mime = Maildoc.GetMIMEEntity

Do While Not maildoc Is Nothing
timestamp = InternationalDate(maildoc.Created) & "_" & TimeString(maildoc.Created)
Set rtitem = maildoc.GetFirstItem( "Body" )

If ( rtitem.Type = RICHTEXT ) Then
' Loop through all Attachments and extract them if they are PDF to FilePath1 and FilePath2
If Not IsEmpty(rtitem.embeddedobjects)  Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) And (LCase(Right(o.Name,3))="pdf") Then
Call o.ExtractFile ( FilePath1 & CStr(timestamp) & "_" & CStr(o.Name) )' orig
'Call o.ExtractFile ( FilePath2 & CStr(timestamp) & "_" & CStr(o.Name) )' kopie
End If
End ForAll
End If
Call maildoc.Putinfolder("Extrahierte Rechnungen", True)
Call maildoc.RemoveFromFolder("($Inbox)")
Call MailVersand
Else
            ' If Mail is Mime, then detaching is different
While Not(mime Is Nothing)
Set header = mime.GetNthHeader("Content-Disposition")
If (Not header Is Nothing) Then
If (header.GetHeaderVal(True) = "application") Then
'if the Content-Disposition header exists then the filename parameter must be present
filename = header.GetParamVal("filename")
'strip off the quotation marks on the file name
filename = StrRight(filename, {"})
filename = StrLeft(filename, {"})
'open a file, get the content of the attachment, and write it to the file system

stream.Open FilePath1  & CStr(timestamp) & "_" & filename, "binary"
mime.GetContentAsBytes stream, True
stream.Close
End If  
End If
Set mime = mime.GetNextEntity(SEARCH_DEPTH)
Wend
s.ConvertMIME = True ' Restore conversion
Call maildoc.Putinfolder("Extrahierte Rechnungen", True)
Call maildoc.RemoveFromFolder("($Inbox)")
Call MailVersand
End If
' Next Doc is now the first doc
Set maildoc = Inbox.GetFirstdocument
Loop
Exit Sub


--- Ende Code ---

jBubbleBoy:
Versuche einmal mittels @AttachmentNames die Anhänge zu identifizieren und mit doc.GetAttachment( Name ) dir ein NotesEmbeddedObject zu holen, das sollte klappen.

Klafu:
Als Ergänzung für den Post von Erik


--- Code: ---varFileNames = Evaluate( "@AttachmentNames", doc )
If varFileNames(0) <> "" then
--- Ende Code ---

Chris

fsinani:
Hallo und danke an Alle!!! Es hat nun auch bei diesem Absender geklappt.




--- Code: --- Set maildoc = Inbox.Getfirstdocument()
Do While Not maildoc Is Nothing
timestamp = InternationalDate(maildoc.Created) & "_" & TimeString(maildoc.Created)
Set rtitem = maildoc.GetFirstItem( "Body" )

If ( rtitem.Type = RICHTEXT ) Then
' Loop through all Attachments and extract them if they are PDF to FilePath1 and FilePath2
If Not IsEmpty(rtitem.embeddedobjects)  Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) And (LCase(Right(o.Name,3))="pdf") Then
Call o.ExtractFile ( FilePath1 & CStr(timestamp) & "_" & CStr(o.Name) )' orig
'Call o.ExtractFile ( FilePath2 & CStr(timestamp) & "_" & CStr(o.Name) )' kopie
End If
End ForAll
Else
' Sometime the attachment is stored in the doc, not in a RTITEM
attNames = Evaluate("@AttachmentNames", Maildoc)
For i = 0 To UBound (attNames)
If (LCase(Right(attNames(i),3))="pdf") Then
Set MimeAtt = MailDoc.GetAttachment(attNames(i))
Call MimeAtt.ExtractFile ( FilePath1 & CStr(timestamp) & "_" & CStr(attNames(i)) )' orig
End if
Next
End If
Call maildoc.Putinfolder("Extrahierte Rechnungen", True)
Call maildoc.RemoveFromFolder("($Inbox)")
Call MailVersand
End If
' Next Doc is now the first doc
Set maildoc = Inbox.GetFirstdocument
Loop


--- Ende Code ---

Falls das jetzt irgendwer mal braucht, bzw. irgendwer mal optimieren möchte :-)

Klafu:

Set maildoc = Inbox.Getfirstdocument()
Do While Not maildoc Is Nothing
   attNames = Evaluate("@AttachmentNames", Maildoc)
   For i = 0 To UBound (attNames)
      If (LCase(Right(attNames(i),3))="pdf") Then
         Set MimeAtt = MailDoc.GetAttachment(attNames(i))
         Call MimeAtt.ExtractFile ( FilePath1 & CStr(timestamp) & "_" & CStr(attNames(i)) )' orig
      End if               
   Next
   Call maildoc.Putinfolder("Extrahierte Rechnungen", True)
   Call maildoc.RemoveFromFolder("($Inbox)")
   Call MailVersand
Loop

Sollte im großen und ganzen schon reichen. Damit deckst du auch den " If ( rtitem.Type = RICHTEXT ) Then " Block ab.

Chris

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete