从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

回答

相关问题