Domino 9 und frühere Versionen > ND8: Entwicklung

Excel VBA mehrere Dateien versenden

<< < (2/2)

Andrew Harder:
Mit der Funktion meine ich eher sowas hier:

--- Code: ---Sub attachFile(doc as variant, rtiAttachment As Variant, sFile As String)
    If Not Len(sFile) = 0 Then
        If rtiAttachment Is Nothing Then
            Set rtiAttachment = doc.CREATERICHTEXTITEM("Attachment")
        End If
        Call rtiAttachment.EMBEDOBJECT(1454, "", sFile)
    End If
End Sub
--- Ende Code ---

---------- hinzugefügt 22:42 Uhr START ----------
Hier noch die Änderung auf PDF:

--- Code: ---fileToOPen = Application.GetOpenFilename("Adobe PDF Files (*.pdf), *.pdf")
    If Not Len(fileToOPen) = 0 Then
        MsgBox "Open " & fileToOPen
    End If
--- Ende Code ---
---------- hinzugefügt 22:42 Uhr END ----------

Programmiere selbst seltenst in VBA (der Editor von VBA war noch nie toll).
Guck Dir mal den Domino Designer an. Über den kann ich natürlich auch meckern, aber gegen den VBA Editor ist das wie ein Fahrad gegen einen Porsche.

koehlerbv:
Du solltest auch mehr Teile Deines Codes posten (damit es nicht zu viel wird, das vorher durch Debugging einschränken!). Aus den bislang bekannt gegebenen Schnipseln konnte man nie etwas sinnvolles erkennen.

Weiterhin: Ich schliesse mich Andy noch weitergehend an: Warum machst Du diesen Stunt aus einer Einzelplatzanwendung heraus und nicht gleich i nder Groupware-Anwendung, die dann obendrein und sowie noch den Mailteil übernimmt? Aber es kann ja sinnfältige Gründe geben, aber die wären für Hilfswillige dann auch interessant zu wissen.

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete