phmg.net
当前位置:首页 >> 我在运用ExCEl VBA编写程序调用outlook发送邮件的... >>

我在运用ExCEl VBA编写程序调用outlook发送邮件的...

我是用office2010的,打开outlook后点文件-选项-信任中心-信任中心设置-编程访问-寻从不向我发送……”。选这个有一定的危险性,容易被病毒使用你的邮箱。

'将发件箱中的邮件发送出去 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...

具体啥问题?代码贴出来看看呗

可以直接使用API函数ShellExecute 复制下面的代码,直接粘贴到你的代码模块中,然后运行EmailSend即可看到效果。 Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal ...

这个很简单,不用excel VBA, 用outlook VBA,编写代码获取某个文件夹里面的邮件对象,然后获取相关信息,之后用createobject创建excel实例,添加新sheet,把得到的邮件信息写入,ok

Set olApp = CreateObject("Outlook.Application") Set newItem = olApp.CreateItem(olMailItem) newItem.To = "邮箱地址,多个地址以分号隔开" newItem.Subject = "abc" newItem.Body = "abc" newItem.Send

参考下面的VBA代码 Sub Send_Email() Dim i As Integer Dim MyOutlookApp As Outlook.Application Dim MyFolder As Outlook.MAPIFolder Dim MyNewMail As Outlook.MailItem Dim MyAttachments As Outlook.Attachments '附件 Set MyOutlookApp = ...

这有些复杂了吧,描述得不是很清楚。 是在outlook中做VBA,在邮件中一点击就自动把当前打开的邮件作为附件插入到excel中, 还是在excel中做VBA,在excel中点击就能回复邮件。。。 哈哈,我也乱了。。。我做不了

Sub sendmail()Dim rowCount,endRowNoSet objOutlook =CreateObject("Outlook.Application")Set objMail =objOutlook.CreateItem(olMailItem)Set objMail =objOutlook.CreateItem(olMailItem)With objMail.To = Cells(1,2).Value'替换为邮件地址...

我以前也试过.在ExcelHome找到一些解决办法,但只针对Office2003 1) 替代里边的安全控件, 是个Dll文件, 忘了什么名字了, 你可以到 ExcelHome 找贴子 2) 在发送邮件代码里将 .Send 改为 .Show , 然后再写一个VBS, 执行 ALT+S 的操作 (不理想的是, ...

网站首页 | 网站地图
All rights reserved Powered by www.phmg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com