Excel VBA 能实现定时自动发送邮件吗

可以，

Private Sub CommandButton1_Click()

 Dim cm As New CDO.Message

 cm.From = "w@163.com" '设置发信人的邮箱"

 cm.To = "c@163.com" '设置收信人的邮箱

 cm.Subject = Range("C5").Value  Format(Now, "yyyymmdd")  "跨界断面附表8" '设定邮件的主题

 cm.AddAttachment ThisWorkbook.FullName

 stUl = "

微软服务器网址

 With cm.Configuration.Fields

     .Item(stUl  "smtpserver") = "smtp.163.com"         'SMTP服务器地址

     .Item(stUl  "smtpserverport") = 25             'SMTP服务器端口

     .Item(stUl  "sendusing") = 25                       '发送端口

     .Item(stUl  "smtpauthenticate") = 1      '需要提供用户名和密码，0是不提供           '

     .Item(stUl  "sendusername") = "wnn19841213"                '发送方邮箱名称

     .Item(stUl  "sendpassword") = "123321"                  '发送方邮箱密码

     .Update

 End With

 cm.Send '最后当然是执行发送了

 Set cm = Nothing

 '发送成功后即时释放对象

 End Sub

我需要一个vba工程密码获取的工具，您可以帮助吗？谢谢 我邮箱，pro_kang@163.com

用16进制编辑工具，如WinHex、Ultraedit-32等，再历害点的人完全可以用debug命令来做......用以上软件打开EXCEL文件，查找定位以下地方：

ID="{00000000-0000-0000-0000-000000000000}" 注：实际显示不会全部为0

此时，你只要将其中的字节随便修改一下即可。保存再打开，就会发现大功告成！

当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住了呵呵）。

顺便说一句，这种方法仍然是可破解的，因为加密总是相对的。

破解方法：将CMG=，DPB=和GC=后的"="替换为"."也可以的,我已测试过的确可以,这样更省事点

"以上回答来自INTERNET，非原创，请尊重别人的知识产权"

vba调用网易闪电邮发邮件

'将发件箱中的邮件发送出去

Sub subSendEmail()

On Error Resume Next

Dim fld_OutBox As Outlook.MAPIFolder

Dim objItems As Outlook.Items

Dim myItem As Object

Dim myItems() As Object

Dim iIndex As Integer

iIndex = 0

Dim n As Integer

'获得发件箱

Set fld_OutBox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox)

Set objItems = fld_OutBox.Items

If fld_OutBox.Items.Count = 0 Then

'如果发件箱邮件数为0从草稿箱中移动邮件

'从草稿箱中移动若干邮件到发件箱

funMoveMailToOutBox 15

End If

'如果发件箱存在对象，对其中的邮件执行发送

If objItems.Count 0 Then

For n = 1 To objItems.Count

If (objItems(1).Class = 43) Then

'发送邮件

objItems(n).Send

End If

Next n

End If

End Sub

你刚才发的后面没有了，请把完整的发我邮箱好吗：851083191@163.com 你发的东西是不是要在文件名后改为vba

这是一个录入窗口的按钮的执行代码，共有四个按钮，这是其中的一个最主要的。