带有图像 (.vbs) 的 Outlook 邮件签名脚本答案

【问题标题】：Outlook mail signature script with with image (.vbs)带有图像 (.vbs) 的 Outlook 邮件签名脚本
【发布时间】：2015-02-27 11:47:44
【问题描述】：

我实际上正在开发一个 vbscript 以在 Outlook 上生成签名，它应该看起来像这样；

所有数据都已成功获取，格式似乎还可以，因为我一直在使用表格并将数据放在相应的单元格中以避免重叠。

这是我的代码；

' Instantiation
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

Details = "Details Details Details Details Details Details Details Details"

' Add logo 
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange, 4, 2
Set objTable = objDoc.Tables(1)
objTable.Columns(0).Width = 900
objTable.Columns(1).Width = 100

' Full Name
objTable.Rows(1).Cells.Merge
objTable.Rows(1).Height = 5
objTable.Cell(1, 1).Range.Font.Color = RGB(15,0,250)
objTable.Cell(1, 1).Range.Font.Name = "Monotype Corsiva"
objTable.Cell(1, 1).Range.Font.Bold = true
objTable.Cell(1, 1).Range.Font.Size = 16 
objTable.Cell(1, 1).Range.Text = strFirstName & " " &  strLastName 

' Title
objTable.Rows(2).Cells.Merge
objTable.Rows(2).Height = 5
objTable.Cell(2, 1).Range.Font.Color = RGB(15,36,62)
objTable.Cell(2, 1).Range.Font.Name = "Monotype Corsiva"
objTable.Cell(1, 1).Range.Font.Bold = true
objTable.Cell(2, 1).Range.Font.Size = 12
objTable.Cell(2, 1).Range.Text = strTitle

' Details
objTable.Rows(3).Cells.Merge
objTable.Rows(3).Height = 15
objTable.Cell(3, 1).Range.Font.Color = RGB(15,36,62)
objTable.Cell(3, 1).Range.Font.Name = "Calibri"
objTable.Cell(3, 1).Range.Font.Size = 8 
objTable.Cell(3, 1).Range.Text = Details  

' Images
objTable.Rows(4).Height = 15
If (strGender = "M") Then
    objTable.Cell(4, 1).Range.InlineShapes.AddPicture "C:\Scripts\Logon\Male.jpg"
Else
    objTable.Cell(4, 1).Range.InlineShapes.AddPicture "C:\Scripts\Logon\Female.jpg"
End if

' Logo
objTable.Cell(4, 2).Range.InlineShapes.AddPicture "C:\Scripts\Logon\logoSignatureNew.jpg"
objTable.Cell(4, 2).Range.ParagraphFormat.Alignment = 2

objSelection.EndKey END_OF_STORY  
Set objSelection = objDoc.Range() 

objSignatureEntries.Add "Signature", objSelection
objSignatureObject.NewMessageSignature = "Signature"

objDoc.Saved = true
objDoc.Close
objWord.Quit

截至目前，输出如下；

谁能帮我在文字周围添加气球？我不知道我们如何添加图片和send to back 或使用某种水印。

任何帮助将不胜感激。感谢期待。

【问题讨论】：

为什么要删除相同的问题并重新创建它？见stackoverflow.com/questions/28738125/…
因为我找到了解决方案的一部分，这就是我现在到达的地方，我现在唯一的问题是把气球放在周围。我希望不是你投票反对我的帖子！我还是删除了另一个帖子，因为我没有答案！
我建议不要删除并重新创建帖子，而是留下您迄今为止发现的反馈。

标签： vbscript ms-word outlook signature watermark

【解决方案1】：

Outlook 外观对象模型提供了三种处理项目主体的主要方式：

正文 - 原始文本。
HTMLBody - HTML 标记。
文字编辑器。 Inspector 类的 WordEditor 属性返回一个 Document 类的实例，该实例表示消息正文。

最后两个可用于完成工作。您可以在 MSDN 的 Chapter 17: Working with Item Bodies 文章中找到所有这些内容。

【讨论】：