Senden von E-Mails aus Lotus Notes mit Excel und Anhaftung & HTML-Körper

Ich habe es geschafft, mein eigenes problem lösen.

In der gleichen Weise erstellen Sie einen MIME Eintrag und stream in die HTML Sie benötigen, um das gleiche zu tun mit der Anlage, die Sie auch benötigen, setzen Sie beide innerhalb einer MIME-Eintrag in der E-Mail selbst halten, um sowohl die HTML-und die Anlage auf der gleichen Ebene, ansonsten Sie am Ende mit einer situation, von der die E-Mail mit dem Körper und ein Kind-Eintrag der Anlage, die innerhalb einer anderen Anlage. (es ist seltsam, aber wahr)
So dies ist meine Lösung:

    Sub Send_Lotus_Email(Addresses, Attach, strSubject, strBody)

'Declare Variables
 Dim s As Object
 Dim db As Object
 Dim body As Object
 Dim bodyChild As Object
 Dim header As Object
 Dim stream As Object
 Dim host As String
 Dim message As Object

 ' Notes variables
 Set s = CreateObject("Notes.NotesSession")
 Set db = s.CurrentDatabase
 Set stream = s.CreateStream

 ' Turn off auto conversion to rtf
 s.ConvertMIME = False

 ' Create message
 Set message = db.CreateDocument
 message.Form = "memo"
 message.Subject = strSubject
 message.SendTo = Addresses
 message.SaveMessageOnSend = True

 ' Create the body to hold HTML and attachment
 Set body = message.CreateMIMEEntity

'Child mime entity which is going to contain the HTML which we put in the stream
 Set bodyChild = body.CreateChildEntity()
 Call stream.WriteText(strBody)
 Call bodyChild.SetContentFromText(stream, "text/html;charset=iso-8859-1", ENC_NONE)
 Call stream.Close
 Call stream.Truncate

 ' This will run though an array of attachment paths and add them to the email
 For i = 0 To UBound(Attach)
    strAttach = Attach(i)
    If Len(strAttach) > 0 And Len(Dir(strAttach)) > 0 Then
        ' Get the attachment file name
        pos = InStrRev(strAttach, "\")
        Filename = Right(strAttach, Len(strAttach) - pos)

        'A new child mime entity to hold a file attachment
        Set bodyChild = body.CreateChildEntity()
        Set header = bodyChild.CreateHeader("Content-Type")
        Call header.SetHeaderVal("multipart/mixed")

        Set header = bodyChild.CreateHeader("Content-Disposition")
        Call header.SetHeaderVal("attachment; filename=" & Filename)

        Set header = bodyChild.CreateHeader("Content-ID")
        Call header.SetHeaderVal(Filename)

        Set stream = s.CreateStream()
        If Not stream.Open(strAttach, "binary") Then
            MsgBox "Open failed"
        End If
        If stream.Bytes = 0 Then
            MsgBox "File has no content"
        End If

        Call bodyChild.SetContentFromBytes(stream, "application/msexcel", ENC_IDENTITY_BINARY)' All my attachments are excel this would need changing depensding on your attachments.
    End If
 Next

 'Send the email
 Call message.Send(False)

 s.ConvertMIME = True ' Restore conversion

End Sub

InformationsquelleAutor Anthony

Nein sorry wusste ich nicht, ich lief diese in VBA, die nicht stark typisiert, so kann ich Weg mit nicht zu wissen, die eigentliche variable Art für die Körper-Identität. ich 've nicht in der Lage gewesen um dies zu testen, aber ich glaub du zurücksetzen müssen, die Erklärungen zu

Dim bodyChild As NotesMIMEEntity

dies ist die eine, die Sie Schwierigkeiten haben, mit denen brüllen, die Sie finden können Probleme verursachen als gut

Dim s As New NotesSession

Dim db As NotesDatabase 

Dim body As NotesMIMEEntity 

Dim header As NotesMIMEHeader 

Dim stream As NotesStream 

Dim host As String 

Dim message As NotesDocument

Hoffe, das hilft

InformationsquelleAutor Anthony