從Excel VBA

發送格式的Lotus Notes富文本電子郵件在試圖使用你的回答暗示了從Excel VBA

Sending formatted Lotus Notes rich text email from Excel VBA

我可以做幾乎我所需要的一切：寫多行與數據我的一個數據庫，通過html代碼格式化正文，包含鏈接和格式化文本。

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

這就是我想要用我的代碼，請告訴我這是可能的！ :-)

在此先感謝。

裏卡多Baldinotti，意大利

來源

2010-07-16 Riccardo Baldinotti

看到這裏的答案：http://stackoverflow.com/questions/3189622/insert-inline-image-into-lotus-notes-message – 2010-07-17 13:44:21

Here你可以找到完整的代碼。這是太大，貼在這裏，所以我複製短短的幾行，以顯示想法：

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

來源

2010-07-16 17:47:51

我只能添加圖像作爲附件。代碼在下一個答案中。 – 2010-07-19 12:40:06

在地址

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

問候

來源

2010-07-21 10:52:27

回答

相關問題