我已经在电子表格中创建了电子邮件超链接列表,其中仅使用超链接公式(而非 VBA),电子邮件内容基于几个定义的单元格的值。
=HYPERLINK("mailto:"&F16 &"?cc="&G16 &"&subject="&email_template!$B$4 &"&body="&H16 &"%0d%0a%0d%0a"&email_template!$B$5 &"%0d%0a%0d%0a%0d%0a"&email_template!$B$6&"%0d%0a%0d%0a"&email_template!$B$7&"%0d%0a" &email_template!$B$8 &"%0d%0a"&email_template!$B$9 &"%0d%0a"&email_template!$B$10;"Open Email Template")
当我逐个单击要打开的每个超链接单元格时,它工作正常。它会打开新的电子邮件窗口(在我的情况下是 Outlook),其中包含所有预定义的数据,完全符合我的要求。
但是我想知道是否有任何方法可以通过单击一个按钮来打开多个电子邮件超链接?我尝试使用此 VBA 代码。它有效,但仅适用于没有任何正文、抄送等自定义的网页超链接或电子邮件超链接。
Sub DD_OpenEmail()
Dim HL As Hyperlink
For Each HL In Selection.Hyperlinks
HL.Follow
Next
End Sub
感谢您的想法。