首页 文章

vba excel使用带有html链接的父mailenvelope发送电子邮件

提问于
浏览
0

使用outlook向电子邮件正文添加html超链接似乎很简单 . 但是,我想在电子表格中发送一系列单元格,并在介绍中发送指向该文件的链接 . 或者轻松点击电子邮件中创建的图像和文件的超链接 .

我有以下代码,但如果我将引言指定为HTMLintroduction,那么它就不会允许它 .

有任何想法吗?

Sub SendMail2()



Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
'Dim Sendrng As Range

Set Sendrng = Worksheets("Dashboard").Range("A1:Q34")

If ActiveWorkbook.Path <> "" Then
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "<font size=""3"" face=""Calibri"">" & _
               ActiveWorkbook.Name & "</B> is created.<br>" & _
              "Click on this link to open the file : " & _
              "<A HREF=""file://" & ActiveWorkbook.FullName & _
              """>Link to the file</A>"

With Sendrng

ActiveWorkbook.EnvelopeVisible = True
    With .Parent.MailEnvelope
        .Introduction = strbody


On Error Resume Next
  With ActiveSheet.MailEnvelope.Item
        .To = "ac@uk.com"
        .CC = ""
        .BCC = ""
        .Subject = ActiveWorkbook.Name
        '.HTMLBody = strbody
        .Display   'or use .Send
    End With

    End With

    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
Else
    MsgBox "Email not sent."
End If
End Sub

1 回答

  • 0

    EDIT - (http://vba-useful.blogspot.com/2014/01/send-html-email-with-embedded-images.html
    以上链接详细说明了如何将jpg排除在范围之外并将其发送到电子邮件中 .

    我发现一些非常相似的代码似乎使用了稍微不同的方法 . 也许它会起作用 . 它似乎绕过了您正在尝试的Mail.Envelope方法 . 从Ron de Bruin's页面 . 不幸的是我无法在我当前的机器上测试它,所以我希望它有所帮助 .

    Sub Make_Outlook_Mail_With_File_Link()
    'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    'Working in Excel 2000-2013
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String
    
        If ActiveWorkbook.Path <> "" Then
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)
    
            strbody = "<font size=""3"" face=""Calibri"">" & _
                      "Colleagues,<br><br>" & _
                      "I want to inform you that the next sales Order :<br><B>" & _
                      ActiveWorkbook.Name & "</B> is created.<br>" & _
                      "Click on this link to open the file : " & _
                      "<A HREF=""file://" & ActiveWorkbook.FullName & _
                      """>Link to the file</A>" & _
                      "<br><br>Regards," & _
                      "<br><br>Account Management</font>"
    
            On Error Resume Next
            With OutMail
                .To = "ron@debruin.nl"
                .CC = ""
                .BCC = ""
                .Subject = ActiveWorkbook.Name
                .HTMLBody = strbody
                .Display   'or use .Send
            End With
            On Error GoTo 0
    
            Set OutMail = Nothing
            Set OutApp = Nothing
        Else
            MsgBox "The ActiveWorkbook does not have a path, Save the file first."
        End If
    End Sub
    

相关问题