title image


Smiley Ganz so einfach ist das doch noch nicht...
zuerst aber einmal vielen Dank für die schnelle Hilfe.



Mir fehlt da noch eine Kleinigkeit.

Also in meiner For/Next Schleife prüfe ich die Emails meines Notes Postfachs unter anderem auf Attachments.

Nun müßte ich erst ermitteln, wieviele Attachments enthalten sind, danach richtet sich nämlich mein erstes Anliegen.

Wenn ich z.B. 4 Attachments habe müssen die Felder txt_Temp_Attachment1 bis 4 angesprochen werden.



Ich weiß leider nicht mehr weiter. Hier erstmal mein Code:



Private Sub Befehl0_Click()

Dim blablabla



Set db1 = CurrentDb

Set rs = db1.OpenRecordset("tab_Temp")



Benutzer = "MeineUserID"



Set session = CreateObject("Notes.NotesSession")

Set db = session.GETDATABASE("MeinNotesServer", "mail\" + Benutzer + ".nsf")

Set view = db.GETVIEW("($Inbox)")

Set doc = view.GETFIRSTDOCUMENT



With rs

Do While Not (doc Is Nothing)

Form = doc.Form

If Form(0) = "Return Receipt" Or Form(0) = "caesarDeliveryReport" Or Form(0) = "NonDelivery Report" Then

Set doc = view.GETNEXTDOCUMENT(doc)

ElseIf doc.Body = "" Then

Set doc = view.GETNEXTDOCUMENT(doc)

ElseIf doc.Body "" Then

.AddNew

![txt_Temp_Memo] = doc.Body

tempsubject = doc.Subject

![txt_Temp_Subject] = tempsubject(0)

tempFROM = doc.FROM

![txt_Temp_From] = tempFROM(0)

tempSendTo = doc.SendTo

![txt_Temp_SendTo] = tempSendTo(0)

tempCopyTo = doc.CopyTo

![txt_Temp_CopyTo] = tempCopyTo(0)

tempBlindCopyTo = doc.BlindCopyTo

![txt_Temp_BlindCopyTo] = tempBlindCopyTo(0)

tempPostedDate = doc.PostedDate

![num_Temp_PostedDate] = tempPostedDate(0)

If doc.HASITEM("$File") Then

For Each Item In doc.ITEMS

If LCase(Item.Name) = "$file" Then

v = Item.VALUES

If IsArray(v) Then

Set att = doc.GETATTACHMENT(v(LBound(v)))

If Not (att Is Nothing) Then

anlage = v

Call att.EXTRACTFILE("MeinVerzeichnis" + anlage(0))

rs("txt_Temp_Attachment" & CStr(i)) = "MeinVerzeichnis" + anlage(0)

End If

End If

End If

Next

End If

.Update

Set doc = view.GETNEXTDOCUMENT(doc)

End If

Loop

End With

Me.Refresh



End Sub



Ich habe keinen blassen Schimmer an welcher Stelle ich die Anzahl der Attachments abfragen kann bzw. wie ich die For Schleife für die Tabellenfelder einsetzen muß.



Irgendeine Idee?



Best regards

S. Dietrich

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: