|
Answer» Hello,
I would like send emails without OUTLOOK window, and how possible insert ?subject=Test TEXT"
Private Sub Command1_Click()
Dim msg, style, Title, help, Ctxt, Response, MyString
Dim SW_NORMAL
ShellExecute Me.hwnd, "Open", "mailto:name<[emailprotected]>?subject=Test text"?body=This is demo text", &o0, &o0, SW_NORMAL
End Sub
Thank you for your help
use the Collaboration Data Objects library. (CDO)Ok, but how possible hide sender in the letter, because programme send message not one man?
EXAMPLE:
Set iMsg.Configuration = iConf
iMsg.From = "[emailprotected]"
iMsg.to = "[emailprotected]"
iMsg.Subject = "subject"
iMsg.HTMLBody = "test message"
iMsg.AddAttachment "C:\demo.xls"
iMsg.send
Set iMsg = Nothing: Set iConf = Nothing: Set Flds = Nothing
Thank you
|
