这个我刚学会!大致代码如下:Dim objOL As Object Dim itmNewMail As ObjectSet objOL = CreateObject("Outlook.Application") Set itmNewMail = objOL.CreateItem(olMailItem) On Error Resume Next
With itmNewMail .To = "[email protected]" '收件人 .cc = "[email protected]" '抄送 .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
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("[email protected]") '发送邮箱 stPw = Trim("zhangyile") '发件人密码 stE1 = Trim("[email protected]") '收件人用户名 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这段代码可以发邮件,但不能带附件,要怎么修改代码才可以带附件呢?请高手指点!
Dim itmNewMail As ObjectSet objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
On Error Resume Next
With itmNewMail
.To = "[email protected]" '收件人
.cc = "[email protected]" '抄送
.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
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("[email protected]") '发送邮箱
stPw = Trim("zhangyile") '发件人密码
stE1 = Trim("[email protected]") '收件人用户名
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这段代码可以发邮件,但不能带附件,要怎么修改代码才可以带附件呢?请高手指点!
WebBrowser1.Navigate "mailto:"