combining standard mail with signature + adress info + mail

B

B

Hi,
I want to do the following. Combine a standard mail with the signature file
of the user. Then I need to fill in the TO, CC, From and Subject field. I've
accomplished the first task, the second not. Can anyone help? This is what
I have sofar:
=======================
Sub incident()

Const ForReading = 1
Set objFS = CreateObject("Scripting.FileSystemObject")
Set oNet = CreateObject("WScript.Network")

strUserName = oNet.UserName

Set objTS = objFS.OpenTextFile("C:\Documents and Settings\" &
strUserName & "\Application Data\Microsoft\Handtekeningen\" & strUserName &
".htm ", ForReading, False)
strSigText = objTS.ReadAll
Set objTS = objFS.OpenTextFile("C:\Aanmelding Incident.htm")
straanmText = objTS.ReadAll
Set myItem = Application.CreateItem(0)


myItem.Display
myItem.HTMLBody = straanmText & strSigText


End Sub
============================
pls also reply to mail. Thanks.
 
Top