Hi,
zu 2. Ich hab das versucht nachzubauen. So ganz bin ich noch nicht glücklich damit. Es ist noch ein bisschen Feinarbeit notwendig.
Hier mal ein Denkansatz
...
Set dbCurrent = session.CurrentDatabase
'Zugriff auf Mail-DB des Users
Set dbMail = New NotesDatabase("","")
dbMail.OpenMail
If Not dbMail.IsOpen Then
Messagebox "Die Mail-Datenbank kann nicht geöffnet werden." + Chr$(10) + "Es können keine Mails importiert werden.", 16, "Vorgänge - Fehler"
Exit Sub
End If 'If Not dbMail.IsOpen Then
'Dialog zur Auswahl
Set collection = workspace.PickListCollection(1, False, dbMail.Server, dbMail.FilePath, "($Inbox)","Eingangsbox", "Markieren Sie die gewünschten Mails.")
If collection.Count = 0 Then Exit Sub
'Abfrage ob Anhänge mit übernommen werden sollen
If Messagebox("Sollen eventuell vorhandene Dateianhänge mit übernommen werden?", 36, "Vorgänge") = 6 Then
intAttachment = 1 'Anhänge werden übernommen
Else
intAttachment = 0 'Anhäge werden nicht übernommen
End If 'If Messagebox("Sollen eventuell vorhandene Dateianhänge...
'Einfügen in Datenbank
Set docNew = docMail.CopyToDatabase(dbCurrent)
Call docNew.ComputeWithForm(False, False)
...
If intAttachment = 0 Then 'Wenn Dateianhänge nicht übernommen werden sollen, werden sie hier gelöscht
If docNew.HasEmbedded Then
Set rtitem = docNew.GetFirstItem("Body")
If rtitem.Type = RICHTEXT Then
Forall objects In rtitem.EmbeddedObjects
If objects.Type = EMBED_ATTACHMENT Then
Call objects.Remove
End If 'If objects.Type = EMBED_ATTACHMENT
End Forall 'Forall objects In rtitem.EmbeddedObjects
End If 'If rtitem.Type = RICHTEXT
End If 'If refdoc.HasEmbedded
End If 'If intAttachment = 0 Then
Call docNew.Save(True,False)
...
Wie gesagt es ist ein Denkansatz. Was hier noch fehlt ist die Verbandelung mit einem Adress- oder Projektdokument.
Axel
Was mir vollkommen unklar ist: Was machst Du eigentlich mit
Set dbCurrent = session.CurrentDatabase
Set col = dbCurrent.AllDocuments
Set doc = col.GetFirstDocument
var = doc.Subject (0)
Das col.GetFirstDocument aus einer Collection aller Dokumente einer Datenbank liefert Dir doch einen "Treffer", den Du absolut nicht vorhersehen kannst. Was willst Du damit ?
Bernhard