VB.net读取Outlook签名

Outlook2007日文版的例子，默认的签名。工具栏的文字是日语，替换成相应的中文应该就可以了（需要debug查找）。

富文本格式的签名只能在不与正文作字符串连接时才能正确表示，否则就会变成纯文本。

 

 

 

                 Dim  olApp  As   New  Outlook.Application()
                 Dim  olItem  As  Outlook.MailItem

                olItem  =  olApp.CreateItem(Outlook.OlItemType.olMailItem)
                olItem.BodyFormat  =  Outlook.OlBodyFormat.olFormatRichText

                                olItem.To  =  strTo                                            ' To
                olItem.CC  =  CC
                olItem.Subject  =  txtTitle.Text                               ' 件名


                                
                 ' 署名を読み込む
                 Dim  inspect1  As  Outlook.Inspector
                inspect1  =  olItem.GetInspector
                inspect1.CommandBars.ActiveMenuBar.Controls( " 挿入(&I) " ).Control.controls( " 署名​​(&S) " ).Control.Controls( " WordMark_Signature " ).execute()


                               olItem.Display()

 

转载于:https://www.cnblogs.com/WayToDotNET/archive/2011/05/12/2044333.html