堆栈内存溢出
  简体   繁体   English

使用 Word VBA 在 Outlook 正文中插入超链接

[英]Inserting hyperlink in Outlook body using Word VBA

 原文  2018-06-06 01:51:43  0   1    excel/ vba/ outlook/ hyperlink/ ms-word

问题描述

How can I add a hyperlink to the last part of my email combining with a text?如何将超链接添加到与文本结合的电子邮件的最后部分？

This must be the last sentence in my paragraph这一定是我段落中的最后一句话

"Should you have questions/clarifications, kindly reach out to Service Management at Service_Management@xyz.com" “如果您有任何疑问/澄清，请通过 Service_Management@xyz.com 联系服务管理人员”

The word "Service_Management@xyz.com" must have a hyperlink. “Service_Management@xyz.com”这个词必须有一个超链接。

I tried editing the code from this:我尝试从这里编辑代码：

wd.Hyperlinks.Add wd.Range(wd.Paragraphs.Count), _
  "mailto:Service_Management@xyz.com" & "Service_Management@xyz.com"

The problem is the bottom part of the body of email becomes a link.问题是电子邮件正文的底部变成了链接。 And there is no text display at the body of the email.并且电子邮件正文中没有文本显示。 How do I declare the link properly so it won't affect the other part of the range?如何正确声明链接，以免影响范围的其他部分？

 Sub AUTOMAIL()

    Dim ol As Object 'Outlook.Application
    Dim olEmail As Object 'Outlook.MailItem
    Dim olInsp As Object 'Outlook.Inspector
    Dim wd As Object 'Word.Document
    Dim rCol As Collection, r As Range, i As Integer
    Dim Table1 As Collection

    Dim ETo As String
    Dim CTo As String

    ETo = Join(Application.Transpose(Worksheets("Data Entry").Range("AD5:AD100").Value), ";")
    CTo = Join(Application.Transpose(Worksheets("Data Entry").Range("AI5:AI15").Value), ";")

     '/* if outlook is running use GO, create otherwise */
    Set ol = GetObject(Class:="Outlook.Application")
    Set olEmail = ol.CreateItem(0) 'olMailItem

    Set Table1 = New Collection

    With Table1
        .Add Sheet14.Range("A1:O20")
    End With

    Set rCol = New Collection
    With rCol   
        .Add Sheet11.Range("a1:i1", "a6:i20")
        .Add Sheet10.Range("a1:i1", "A6:I20")
        .Add Sheet9.Range("A1:J18")
    End With

    With olEmail
        .To = ETo
        .CC = CTo
        .Subject = "Step+ Volume Tracker, Data Entry/Workflow Ageing Report and Rejection Report | " & Format(Date, "MMMM dd, yyyy") & " | 9:15AM"

        '/* bonus basic html */
        .HTMLBody = "<html><body style=""font-family:calibri"">" & _
                    "<p><b>Dear All,</b><br><br> Please see below summary of invoices and links to the <b>Volume Tracker</b> and <b>Ageing Report</b> (Data Entry and Workflow)." & _
                    "</p></body></html>"

           Set olInsp = .GetInspector
           If olInsp.EditorType = 4 Then 'olEditorWord
               Set wd = olInsp.WordEditor
               For i = 1 To Table1.Count '/* iterate all ranges */
                   Set r = Table1.Item(i): r.Copy
                   wd.Range.insertparagraphafter
                   wd.Paragraphs(wd.Paragraphs.Count).Range.PasteAndFormat 16
                   '16 - wdFormatOriginalFormatting
            Next
        End If
        wd.Paragraphs(wd.Paragraphs.Count).Range.Text = Chr(11) & "Please click on this link to view the details:"

        Set olInsp = .GetInspector
        If olInsp.EditorType = 4 Then 'olEditorWord
            Set wd = olInsp.WordEditor
            For i = 1 To rCol.Count '/* iterate all ranges */
                Set r = rCol.Item(i): r.Copy
                wd.Range.insertparagraphafter
                wd.Paragraphs(wd.Paragraphs.Count).Range.PasteAndFormat 16
                '16 - wdFormatOriginalFormatting
            Next
        End If

        wd.Paragraphs(wd.Paragraphs.Count).Range.Text = Chr(11) & "Please click on this link to view the details:" & vbCrLf & "Those who are encountering problems accessing the Sharepoint site, please refer to attachment for Data Entry and Workflow Report. " & Chr(11) & "Please note though that the file has been truncated, complete details of the report are available in the links indicated above." & Chr(11) & Chr(11) & "Should you have questions/clarifications, kindly reach out to Service Management at"
        wd.Range(wd.Paragraphs(wd.Paragraphs.Count).Range.Characters(98).Start, _
        wd.Paragraphs(wd.Paragraphs.Count).Range.Characters(128).End).Font.Bold = True

        wd.Range.Hyperlinks.Add Anchor:=wd.Range, _
        Address:="mailto:Service_Management@xyz.com"
        wd.Range.Font.Size = 10
        .Display

    End With

End Sub

1 个解决方案

解决方案1
 1 已采纳  2018-06-07 18:44:46

Move the selection to the end of the message then insert the hyperlink.将选择移动到消息的末尾，然后插入超链接。

'Reference to Word Object Library required
 objSel.EndKey Unit:=wdStory

' Reference to Word Object Library not required
objSel.EndKey Unit:=6

This is a less noisy example than the code in your question.与您问题中的代码相比，这是一个噪声较小的示例。

Sub AUTOMAIL()

    Dim ol As Object 'Outlook.Application
    Dim olEmail As Object 'Outlook.MailItem
    Dim olInsp As Object 'Outlook.Inspector
    Dim wd As Object 'Word.Document

     '/* if outlook is running use GO, create otherwise */
    Set ol = GetObject(Class:="Outlook.Application")
    Set olEmail = ol.CreateItem(0) 'olMailItem

    With olEmail

        '/* bonus basic html */
        .HTMLBody = "<html><body style=""font-family:calibri"">" & _
                    "<p><b>Dear All,</b><br><br> Please see below summary of invoices and links to the <b>Volume Tracker</b> and <b>Ageing Report</b> (Data Entry and Workflow)." & _
                    "</p></body></html>"

        Set olInsp = .GetInspector
        If olInsp.EditorType = 4 Then 'olEditorWord
            Set wd = olInsp.WordEditor
            wd.Range.InsertParagraphAfter
        End If

        wd.Paragraphs(wd.Paragraphs.Count).Range.Text = Chr(11) & "Please click on this link to view the details:" & vbCrLf & "Those who are encountering problems accessing the Sharepoint site, please refer to attachment for Data Entry and Workflow Report. " & Chr(11) & "Please note though that the file has been truncated, complete details of the report are available in the links indicated above." & Chr(11) & Chr(11) & "Should you have questions/clarifications, kindly reach out to Service Management at"

        wd.Range.InsertParagraphAfter

        Dim objSel As Object
        Set objSel = wd.Windows(1).Selection

        'Reference to Word Object Library required
        'objSel.EndKey Unit:=wdStory

        ' Reference to Word Object Library not required
        objSel.EndKey Unit:=6

        wd.Range.Hyperlinks.Add Anchor:=objSel.Range, _
          Address:="mailto:Service_Management@xyz.com"

        .Display

    End With

End Sub

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 将超链接从 excel 复制并粘贴到 Outlook 正文文本 VBA - Copy and paste hyperlink from excel to outlook body text VBA 使用 VBA 在 Outlook 约会中创建超链接 - Using VBA to create a hyperlink in an Outlook appointment 使用Outlook VBA向Excel工作表添加超链接 - Add a hyperlink to excel worksheet using outlook VBA 使用 Excel VBA 在 Word 书签处插入超链接 - Using Excel VBA to insert a hyperlink at a Word bookmark 使用 Outlook VBA 将电子邮件正文复制到 Excel - Copy email body to Excel using Outlook VBA 使用 VBA 触发 Outlook 邮件正文 - Trigger Outlook Mail Body using VBA 选择Word文档的内容并用VBA将其粘贴到Outlook的正文中 - Select the content of Word document and paste it into the body of Outlook with VBA 使用 VBA 在电子邮件正文中插入文本 - Inserting text in Email body using VBA 使用 VBA 将 Excel 文件中的超链接添加到 Word 文档 - Adding a Hyperlink from an Excel file to a Word document using VBA 使用Excel VBA在Outlook邮件中的粘贴正文之后插入签名 - Insert signature after the pasted body in Outlook mail using Excel VBA
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM