|
楼主 |
发表于 2010-4-28 07:52
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
下面是我的代码,老师帮助看一下错在哪里。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
Dim server ''定义个Jmail
Set server = CreateObject("jmail.Message") ''调用
server.Charset = "gb2312"
server.Silent = False
server.Priority = 1 '邮件状态,1-5 1为最高
server.MailServerUserName = "1469146671@qq.com" 'Email帐号
server.MailServerPassWord = "y123456a" '你的Email密码,即1469146671的登录密码
server.FromName = "1469146671" '发信人姓名
server.From = "1469146671@qq.com" '发邮件地址地
server.Subject = sSubject '主题
server.AddRecipient "759430270@qq.com" '收信人地址
server.body = sBody '信件正文
server.AddAttachment sFileName
server.send ("smtp.qq.com")
server.Close
Set server = Nothing
End Sub
Sub 发送邮件()
On Error Resume Next
' If Me.ComboBox1.Value = "" Then Exit Sub
Err.Clear
SendMail "工资", "核对工资", "D:\book1.xls"
If Err.Number <> 0 Then
MsgBox "发送失败", vbOKOnly + vbInformation, "提示"
Else
MsgBox "发送成功", vbOKOnly + vbInformation, "提示"
End If
End Sub |
|