Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

E-Mailversand mit Excel Makro - Problem mit Anhängen

<< < (3/5) > >>

Rocky89:
Hallo Experten,

erstmal möchte ich sagen, dass ich es ganz klasse finde, dass man in diesem Forum so schnell echte Hilfe bekommt. Danke dafür!!!

Der Text der Email wird aus einem HTML-Dokument eingelesen, von daher gehe ich einfach mal davon aus, dass HTML notwendig ist. Ich hatte vorher eine Variante, bei der der Text aus einem txt-Dokument eingelesen wurde, allerdings ist im Text eine Tabelle enthalten, die mit txt nicht darstellbar war.

Eventuell kann ich dazu zurückgehen. Damals sah der VBA-Code so aus.

Sub LotusMail(Empfaenger As String, Inhalt As String)
    Dim Kopie_Empfänger As String, BlindKopie_Empfänger As String, Betreff As String
 
Const EMBED_ATTACHMENT = 1454
Dim server As String, mailfile As String
Dim session As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim EmbeddedObject As Object

 
 
' Auslesen der Mail-DB
Set session = CreateObject("Notes.NotesSession")
server = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.getdatabase(server, mailfile)
Set doc = db.createdocument()
doc.Form = "Main Topic"
doc.SendTo = Empfaenger
' doc.blindcopyto = Empfaenger ' Adressaten übergeben
' doc.CopyTo = Me.Kopie_Empfänger.Value
' doc.BlindCopyTo = Me.BlindKopie_Empfänger.Value
doc.Subject = Cells(2, 6).Value
doc.Body = Inhalt & dat_ReadText(Range("F5").Text)




' ANHANG
Set rtitem = doc.CREATERICHTEXTITEM("ProjectDescription")
For Each Cell In Range("F8:F18")
If Cell = "" Then Exit For
Dateianhang = Cell.Value
Set EmbeddedObject = rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", Dateianhang) 'Dateianhang mit Pfad und Dateiname überschreiben

Next


'Dateianhang = Range("F6").Value
'Set rtitem = doc.CREATERICHTEXTITEM("ProjectDescription")
'Set EmbeddedObject = rtitem.EMBEDOBJECT(EMBED_ATTACHMENT, "", Dateianhang) 'Dateianhang mit Pfad und Dateiname überschreiben
 'doc.SIGN = "0"
 'doc.ENCRYPT = "0"
 'doc.BlindCopyTo = ""
 'doc.DefaultMailSaveOptions = 0 '"1"
 'doc.MailSaveOptions = 0 '"1"
 'doc.DeliveryReport = "B"
 'doc.MailOptions = "2" '"0"
 'doc.Importance = "1" ' Neu
 'doc.logo = "Barmenia" 'neu
 'doc.ReturnReceipt = "1"
doc.principal = session.UserName
doc.viewicon = "75"
doc.FROM = session.UserName
' doc.SaveOptions = 0 '"1"
' doc.SecureMail = ""
' doc.SenderTag = "F"
 
'SMTP-Originator
doc.PostedDate = Format$(Now, "dd.mm.yyyy") + " " + Format$(Now, "hh:nn:ss")
' doc.SAVEMESSAGEONSEND = 0
' Call doc.Save(False, False)
Call doc.Send(True, "")
Set doc = Nothing
Set db = Nothing
End Sub
 
Sub Mail_senden()
'Für jede Zelle in Bereich d2 bis zur letzen belegten Zelle in Spalte d wird eine Mail versandt.
Dim Cell As Range
For Each Cell In Range("d2:d" & Cells(Rows.Count, "d").End(xlUp).Row)
If Cell <> "" Then Call LotusMail(Cell.Value, Cell(1, -2) & " " & Cell(1, -1) & " " & Cell(1, 0) & ",") Else Exit For
Next
End Sub

Public Function dat_ReadText(DerPfad As String) As String
    Dim sText As String, iFrei As Integer, i As Long
    On Error GoTo Fehler
    sText = ""
    iFrei = FreeFile
    Open DerPfad For Binary Access Read As #iFrei
    i = LOF(iFrei)
    sText = String(i, 0)
    Get #iFrei, , sText
    Close #iFrei
    dat_ReadText = sText
    Exit Function
Fehler:
    MsgBox Err.Description
End Function


1. Würde es mit diesem Code funktionieren, dass die Anhänge auch extern dabei sind?
2. Kann mit einem txt-Dokument eine ordentliche Formatierung dargestellt werden?

Vielen Dank im Voraus!

Gruß,

Christian

P.S.
Das Tool von Madicon habe ich auch gesehen, allerdings ist für die nächsten Monate kein Budget mehr für Software vorhanden und außerdem dauert es bei meinem Arbeitgeber äußerst lange neue Ideen durchzusetzen ;))

Rocky89:
Nachtrag zu meinem letzten Beitrag:
3. Wäre es möglich anstatt der txt-Datei eine doc-Datei (Word mit Formatierung etc.) zu verwenden?

Danke im Voraus.

Gruß,
Christain

koehlerbv:
1. Nein. U.a. kopierst Du nach wie vor den Anhang nicht in das Body-Item.
2. Nein. Zumindest eine plain text-"Formatierung" nicht mit HTML oder RichText vergleichbar.
3. Nein. (Ansatzweise gehen würde es, aber dazu muss man gaaaaaanz tief in die Trickkiste von Word und Notes greifen).

Bernhard

Rocky89:
Hey Bernhard,

zu 1.: Ich hab das jetzt nochmal probiert und die Mail an meine private Adresse (d.h. extern) gesendet und da waren die Anhänge dabei.

Was müsste ich konkret an meinem Code ändern, damit ich den Anhang in das Body-Item kopiere?

Ich fasse mal kurz den Stand zusammen:
Lapidar gesagt, habe ich die Wahl zwischen Pest und Cholera. Entweder Anhänge und gute Formatierung oder gute Formatierung ohne Anhänge...

Habt ihr eine Idee, wie lange ein versierter Programmierer brauchen würde, um den Code voll funktionsfähig zu machen?

Gruß,
Christian

m3:
Bis nach Weihnachten ;)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete