GoldenLine
Zaloguj się

konto usunięte

Temat: Zapis załączników z kilku maili

Witam,

Mam dosyć nietypowy problem.
Zrobiłem makro które ściąga dane z dużej liczy plików w postaci .csv, które to wysyłane są automatycznie w pojedynczych mailach.
Stąd też na skrzynce mam pareset maili z pojedynczym załącznikiem, który niestety w przypadku każdego maila ma taką samą nazwę.
Stąd tez w przypadku próby zapisu załączników Lotus zastępuje je jeden po drugim i zamiast przykładowo 100 plików mam jeden.
Czy istnieje jakaś opcja zapisu załączników, tak aby Lotus nie zastępował ich a tworzył nowe, coś jak Windows tworzący pliki "kopia pliku x"?

Pozdrawiam
Link do wypowiedziLink
Konrad Hoszwa

Konrad Hoszwa Architekt systemowy,
PZU Centrum Operacji
S.A.

Temat: Zapis załączników z kilku maili

Tak na szybko.
Można dodać przycisk na widoku, na którym będziemy mogli zaznaczyć dokumenty, z których chcemy wyeksportować załączniki (pliki).
Pod przyciskiem umieścić poniższy kod (nie testowałem, ale powienien zadziałać):



Sub Click(Source As Button)

	Dim s As New NotesSession

	Dim db As NotesDatabase

	Dim coll As NotesDocumentCollection

	Dim doc As NotesDocument

	Dim rtitem As NotesRichTextItem

	Dim fileCount As Integer

	Set db = s.CurrentDatabase

	Const FOLDER_NAME = "c:\Temp\"

	Set coll = db.UnprocessedDocuments

	Set doc = coll.GetFirstDocument()

	While Not(doc Is Nothing)

		Set rtitem = doc.GetFirstItem( "Body" )

		If Not rtitem Is Nothing Then

		  If ( rtitem.Type = RICHTEXT ) Then

			Forall o In rtitem.EmbeddedObjects

				If ( o.Type = EMBED_ATTACHMENT ) Then

				  fileCount = fileCount + 1

				  o.ExtractFile FOLDER_NAME  & Cstr(fileCount) + "_" + o.Name

				End If

			End Forall

		  End If

		End If

		Set doc = coll.GetNextDocument(doc)

	Wend

End Sub


Pozdrawiam

KonradKonrad Hoszwa edytował(a) ten post dnia 24.03.11 o godzinie 20:01
Link do wypowiedziLink
Tomasz Frydryk

Tomasz Frydryk Właściciel, Domino
Solutions

Temat: Zapis załączników z kilku maili

Ewentualnie można w kodzie sprawdzać czy taki plik już istnieje, mniej więcej tak.
if (dir(FolderName+o.name)="" then
o.ExtractFile FOLDER_NAME + o.Name
else
o.ExtractFile FOLDER_NAME + Cstr(fileCount)+ o.Name
fileCount=fileCount+1
end if

Ale jednego przełącznika, opcji w ustawieniach nie ma.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Lotus Notes - przeszukiwani...




Wyślij zaproszenie do
Anuluj