怎么调用默认的邮件程序来发邮件？？？

[windljf]

怎么调用默认的邮件程序来发邮件？？？需要把指定自动的把发送人的邮箱地址放上
去

[python与大数据分析]

mailsession mses
mailmessage mmsg
mailrecipient mrec
mailreturncode mreturn
mailfiledescription mattach
int mnbr

//定义临时变量
//产生邮件会话对象mses
mses = create mailsession
//邮件登录。此处用户名,口令缺省
mreturn = mses.maillogon('','',mailNewSessionWithDownLoad!)
mses.mailGetMessages()
if mreturn <> mailreturnsuccess! Then
messagebox("邮件登录","邮件登录失败!")
return 0
end if
mreturn=mses.mailaddress(mmsg)
if mreturn<>mailreturnsuccess! then
messagebox("邮件地址","邮件地址出错！")
return
end if
mmsg.subject=sle_1.text
mmsg.notetext=mle_1.text
mattach.filetype=mailattach!
mattach.pathname=ORI_FILE
mattach.filename=ORI_FILE
mattach.position=len(mmsg.notetext) - 1
mmsg.attachmentfile[1]=mattach
mreturn=mses.mailsend(mmsg)
if mreturn<>mailreturnsuccess! then
messagebox("提示！","文件不能发送，请检查！")
return
else
messagebox("提示!","文件发送成功！")
end if
mses.maillogoff()
destroy mses

[windljf]

to： baoqiangwang(我是一只小小鸟)，我不是要自己写一个程序来发邮件，而是要调用系统默认的邮件收发程序来工作，例如，如果outlook是默认的邮件程序，就调用outlook来发邮件。

[xuebuctxy]

兄弟，不是叫你去查ole吗？

oleobject myolapp
myolapp=create oleobject
myolapp.connecttonewobject("outlook.application")
myolapp.application.createitem(0).display

还有很多没写，因为我不熟悉，现在已经能够打开窗口了

[windljf]

兄弟，ole怎么打开默认的邮件程序呢？？？

[xuebuctxy]

默认的！只好用我上次说的方法将就了，把ie的窗口关掉估计别人也不会太在意，我没有别的方法！

[xuebuctxy]

晕倒~~~~~~~~
我找到方法了run()运行"mailto:[e-mail]"

[xuebuctxy]

错了错了！没测试，呵呵！

[windljf]

有人会吗？？？？

[programerfeng]

up

[lxyml]

Inet linet_base
string ls_cmd
ls_cmd = 'mailto:mailto:[e-mail]'
GetContextService("Internet",linet_base)
linet_base.HyperlinkToURL(ls_cmd)

[flyhot]

gz!

[windljf]

up

[windljf]

lxyml() ，这样的话会多打开一个IE的，不对啊

[kong_long2000]

windows.open("mailto:[e-mail]?SUBJECT=Test&FROM=[e-mail]&BODY=Messgae")

[xuebuctxy]

终于用vb调用API实现了,在PB里应该也一样
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()

'给某个信箱发电子邮件
ShellExecute 0, "open", "mailto:[e-mail]", vbNullString, vbNullString, 3