如何用vba显示签名？

07241

我在vba中，使用.send来发送邮件，但这样发出去的邮件不会带签名，请问如何可以带上签名？

谢谢！

Cellfarmer

这是用于Notes的代码，Willin2000版主的：
Sub SendEmailwithSignature()
    Dim aNotes
    Dim aDatabase
    Dim aDocument
    Dim strSign As String
   
    Set aNotes = CreateObject("Notes.NotesSession")
    Set aDatabase = aNotes.CURRENTDATABASE
    strSign = aDatabase.GetProfileDocument("CalendarProfile") _
                                            .GETITEMVALUE("Signature")(0)
                                            
    Set aDocument = aDatabase.CREATEDOCUMENT
    aDocument.Subject = "test"
    aDocument.SendTo = "test@xxx.com"
    aDocument.Form = "Memo"
    aDocument.body = "This is a test to using Signature." & vbCrLf & vbCrLf & strSign
    aDocument.SAVEMESSAGEONSEND = True
    aDocument.PostedDate = Now
    Call aDocument.Save(True, False)
   
    Set aNotes = Nothing
    Set aDatabase = Nothing
    Set aDocument = Nothing
End Sub

07241

outlook中如何做呢？

dsd999

思路就是把签名得到，然后加到正文的后面。

下面的代码就是去签名，如果有问题，再来问。

Public Function UserSignaturePath()

UserSignaturePath = "C:\Documents and Settings\******\Application Data\Microsoft\Signatures\aaaa.htm"
End Function
Sub GetSignature()


Dim fso As Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
SigPath = UserSignaturePath()
Set f_SignatureObj = fso.OpenTextFile(SigPath, 1, False, 0)
MsgBox f_SignatureObj.ReadAll
f_SignatureObj.Close
Set fso = Nothing

End Sub

lzn6108

收藏，慢慢学习。

qqbe12

指教了{:soso_e179:}

xiongqin8521

createobject()这个函数在2010的office中也有么？

84595292

dsd999 发表于 2011-5-11 09:40
思路就是把签名得到，然后加到正文的后面。

下面的代码就是去签名，如果有问题，再来问。

Outlook设定的默认“签名”用vba怎么带出来啊？谢~

Kay1014

outlook里可以设置签名：新开一个邮件，点签名处，里头就可以设置了。