vba怎么调用outlook发邮件？谢谢！

[milerzhang]

如题！谢谢！有一个例子最好！

[milerzhang]

Sub outlook()
Dim stUl As String '微软服务器网址
Dim vCDO As Variant 'CDO.Message对象
Dim stUs As String '发送方邮箱名称
Dim stRx As String '发送方邮箱服务器
Dim stPw As String '发送方邮箱密码
Dim stE1 As String '主要接收方邮箱完整帐号
Dim stE2 As String '备用接收方邮箱完整帐号
Dim stZt As String '邮件主题
Dim stNr As String '邮件内容
Dim stFj As String '邮件附件

stUs = Trim("zhang") '发件人用户名
stRx = Trim("[e-mail]") '发送邮箱
stPw = Trim("zhangyile") '发件人密码
stE1 = Trim("[e-mail]") '收件人用户名
stZt = Trim("你好")
'stNr = Trim(Nz(Me.内容))
stFj = Trim("c:\程序.xls")

'stUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址

Set vCDO = CreateObject("CDO.Message") '建立对象

vCDO.From = stRx '发送方邮箱完整帐号
vCDO.To = stE1 '主要接收方邮箱完整帐号
If Len(stE2) > 0 Then vCDO.CC = stE2 '备用接收方邮箱完整帐号
vCDO.Subject = stZt '邮件主题
vCDO.Textbody = stNr '邮件内容
If Len(stFj) > 0 Then vCDO.AddAttachment stFj '邮件附件

With vCDO.Configuration.Fields
.Item(stUl & "smtpserver") = "oa.163.com" 'SMTP服务器地址
.Item(stUl & "smtpserverport") = 25 'SMTP服务器端口
.Item(stUl & "sendusing") = 25 '发送端口
.Item(stUl & "smtpauthenticate") = 1 '
.Item(stUl & "sendusername") = stRx '发送方邮箱名称
.Item(stUl & "sendpassword") = "zhangyl" '发送方邮箱密码
.Update
End With
vCDO.Send '发送
Set vCDO = Nothing
MsgBox "发送成功！", vbInformation, "提示"
End Sub

这段代码可以发邮件，但不能带附件，要怎么修改代码才可以带附件呢？请高手指点！

[janeite]

这个我刚学会！大致代码如下：

Dim objOL As Object
Dim itmNewMail As Object

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
On Error Resume Next

With itmNewMail
.To = "[e-mail]" '收件人
.cc = "[e-mail]" '抄送
.Subject = "title" '邮件主题
.Body = "ccc" '邮件正文
.Attachments.Add "C:\Documents and Settings\xxx.xls" '附件
.send '发送
End With

Set objOL = Nothing
Set itmNewMail = Nothing


详细用法参见：http://www.rondebruin.nl/sendmail.htm

[bgyyyyy]

[Quote=引用 1 楼 janeite 的回复:]
这个我刚学会！大致代码如下：

Dim objOL As Object
Dim itmNewMail As Object

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
On Error Resume Next

With itmNewMail
.To = "[e-mail]" '收件人
.cc = "[e-mail]" '抄送
.Subject = "title" '邮件主题
.Body = "ccc" …
[/Quote]

正解

[bgyyyyy]

[Quote=引用 1 楼 janeite 的回复:]
这个我刚学会！大致代码如下：

Dim objOL As Object
Dim itmNewMail As Object

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
On Error Resume Next

With itmNewMail
.To = "[e-mail]" '收件人
.cc = "[e-mail]" '抄送
.Subject = "title" '邮件主题
.Body = "ccc" …
[/Quote]

正解

[SYSSZ]

调用outlook发邮件
WebBrowser1.Navigate "mailto:"

[思考]

为什么不用jmail