vba - 如何通过 Excel VBA 使用 Mozilla Thunderbird 生成和发送电子邮件

Question

我一直在考虑尝试使用 VBA 宏通过 Mozilla Thunderbird 发送电子邮件，并将电子表格作为附件。

///我已经搜索了 Google 和 Stack Overflow 本身，但这些解决方案似乎都不起作用。///我不是最擅长编码或擅长自身，所以我只是想知道是否有任何善良的灵魂可以帮助我？

感谢提供的任何帮助。

问候，

Answer 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

Sub Send_Email_Using_Keys()
Dim Mail_Object As String
Dim Email_Subject, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String

Email_Subject = "ACT Form Completed and Confirmed"
Email_Send_To = "kieranfarley@achievementtraining.com"
Email_Cc = "kieranfarley@achievementtraining.com"
Email_Bcc = "kieranfarley@achievementtraining.com"
Email_Body = "ACT Form Completed and Confirmed Please see attached"

Mail_Object = "mailto:" & Email_Send_To & "?subject=" & Email_Subject & 
"&body=" & Email_Body & "&cc=" & Email_Cc & "&bcc=" & Email_Bcc

On Error GoTo debugs
ShellExecute 0&, vbNullString, Mail_Object, vbNullString, vbNullString, 
vbNormalFocus

Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"

debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

这打开了 Thunderbird 中的“写入”框，所有字段都已预先填写好准备发送。