vba可否调用 Foxmail发邮件

excel_cjx

小生工作中常有邮件要一行行内容发给不同的人，我用的都是hotmail,不用outlook，有没有可以类似语句
Public Sub 技巧19_013()
    Dim wbStr As String
    Dim OutlookApp As Outlook.Application
    Dim newMail As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Set OutlookApp = New Outlook.Application
    wbStr = ThisWorkbook.FullName    '指定要发送发工作簿名称字符串
    Set newMail = OutlookApp.CreateItem(olMailItem)    '创建新邮件
    With newMail
        .Subject = "附件实验"      '设置邮件主题
        .Body = "附件工作簿实验："     '设置邮件正文
        Set myAttachments = newMail.Attachments
        myAttachments.Add wbStr, olByValue, 1, "工作簿"
        .To = "hhh@163.com"       '设置收件人地址
        .Send        '开始发送
     End With
    Set newMail = Nothing
    Set myAttachments = Nothing
    Set OutlookApp = Nothing
End Sub

syj_819

这功能我也需要。。同等

tangzs

我也要，要用foxmail，不用outlook，找了好久，没有找到完善的方案

esnake

设置Foxmail为默认邮件客户端，然后用Shell32调用Mailto即可调用，但是不支持插入附件。

zhyzhsh

原帖由 esnake 于 2009-3-18 16:38 发表
设置Foxmail为默认邮件客户端，然后用Shell32调用Mailto即可调用，但是不支持插入附件。

我倒是知道怎么添加附件，就是把附件的完整路径以参数的形式传递给foxmail程序，和“发送到”同一个原理。可惜这个方法不能同时添加收件人和主题，可能还要用API的方法。如果能得到foxmail的所有参数清单就好了

leroy

我需要这方面的代码，盼赐教！

清平

我也需要，同等！感谢各位高人！

1583478094

我也需要调用foxmail的代码，同等

narutospreed

1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
2. Private Sub CommandButton1_Click() '声明（在模块中、首行）
   
3.     mymail = "mailto:XXX@XXX.com?subject=信息系统部测试 &body=我是不是一个大帅比？？&Attachment=""C:\out.txt""  "
   
4.     ShellExecute 0&, vbNullString, mymail, vbNullString, vbNullString, 1
   
5. End Sub
   
6. 
   

复制代码

写诗读

narutospreed 发表于 2016-11-15 11:00

代码前面都ok，就是不能添加附件