從 Excel VBA 發送格式化的 Lotus Notes 富文本電子郵件

Question

在嘗試使用答案中的提示時

從 Excel VBA 發送格式化的 Lotus Notes 富文本電子郵件

我幾乎可以做我需要的一切：用我的數據庫中的數據編寫多行，通過 html 代碼格式化正文，帶有鏈接和格式化文本。

我還需要在郵件正文中放置一個圖像，但是 html 代碼“img src="etc. 不起作用，可能是因為圖像位於我的電腦上並且收件人無法訪問。 我需要找到一種方法來嵌入圖像，就像我通過 Lotus 菜單所做的那樣。 在我的意大利語 Lotus Notes 7 中，有一個帶有圖像選項的創建菜單，我找到了圖像，單擊確定就完成了。

這就是我希望用我的代碼做的事情，請告訴我這是可能的！ :-)

提前致謝。

里卡爾多·巴爾迪諾蒂，意大利

Answer 1

在這里你可以找到完整的代碼。 粘貼在這里太大了，所以我只復制了幾行來展示這個想法：

  If (bSetImages) Then
        For iImageIndex = 0 To Ubound(imageFilePaths)

              ' Get the image file path and content id (cid).
              strImagePath = Trim(imageFilePaths(iImageIndex))
              If (strImagePath = "") Then Exit Sub
              strImageCid = Trim(imageContentIds(iImageIndex))
              If (strImageCid = "") Then Exit Sub

              ' Get the image context type.
              If (StrContains(strImagePath, ".", True)) Then strImageExt = Strrightback(strImagePath, ".") Else strImageExt = ""
              Select Case Lcase(strImageExt)
              Case "gif":      strImageType = "image/gif"
              Case "jpg":      strImageType = "image/jpg"
              Case Else:      strImageType = "image/gif"
              End Select

              ' Add the image part.
              Set mimeImage = mimeBody.CreateChildEntity()
              Set mimeImageHeader = mimeImage.CreateHeader({Content-ID})
              Call mimeImageHeader.SetHeaderVal("<" & strImageCid & ">")
              Call stream.Open(strImagePath)
              Call mimeImage.SetContentFromBytes(stream, strImageType & {;name="} + strImageCid + {"}, ENC_IDENTITY_BINARY)
              Call stream.Close()

        Next
  End If

Answer 2

在地址

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/dcbf91b97004f0af8525773e002867a9?OpenDocument

我找到了一個解決方案，現在我的郵件正文中有一個圖像。

這是我的代碼。

Call stream.Open("<MY IMAGE PATH>")
Set body = MailDoc.CreateMIMEEntity '("memo")
Set richTextHeader = body.CreateHeader("Content-Type")
Call richTextHeader.SetHeaderVal("multipart/mixed")
Set mimeImage = body.CreateChildEntity()
strImageType = "image/jpeg" 'Other formats are "image/gif" "image/bmp"
Call mimeImage.SetContentFromBytes(stream, strImageType, ENC_IDENTITY_BINARY)
Call stream.Close

問候