วิธีส่งอีเมลจาก Excel พร้อมไฮเปอร์ลิงก์ในเนื้อหาอีเมล

คุณเคยพยายามส่งอีเมลด้วยรหัส VBA ใน Excel หรือไม่? และจะเพิ่มไฮเปอร์ลิงก์ไปยังข้อความในอีเมลเมื่อส่งอีเมลได้อย่างไร บทความนี้จะช่วยแก้ปัญหานี้

แทรกไฮเปอร์ลิงก์ในเนื้อหาอีเมลด้วยรหัส VBA

แทรกไฮเปอร์ลิงก์ในเนื้อหาอีเมลด้วยรหัส VBA

โค้ด VBA ด้านล่างสามารถช่วยในการส่งอีเมลจาก Excel และแทรกไฮเปอร์ลิงก์เฉพาะในเนื้อหาอีเมล กรุณาดำเนินการดังนี้

1. เปิดสมุดงานของคุณกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล, จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในตัวแก้ไขโมดูล

รหัส VBA: แทรกไฮเปอร์ลิงก์ลงในเนื้อหาอีเมล

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

หมายเหตุ:

• โปรดเปลี่ยนเนื้อหาเนื้อหาและไฮเปอร์ลิงก์ในไฟล์ xStrร่างกาย เส้น
• แทนที่ "ที่อยู่อีเมล"ใน . เพื่อ, . ปชช และBCC บรรทัดกับที่อยู่อีเมลจริงที่คุณจะส่งอีเมลไป หากคุณไม่ต้องการบรรทัด CC และ BCC เพียงแค่ลบออกจากโค้ดทั้งหมดหรือเพิ่มเครื่องหมายคำพูดเดียวก่อนบรรทัดเช่น 'CC =” ที่อยู่อีเมล”.
• แทนที่ "หัวเรื่อง"ใน .เรื่อง สอดคล้องกับหัวเรื่องอีเมลของคุณเอง

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นอีเมลจะถูกสร้างขึ้นด้วยช่องและเนื้อหาที่ระบุโดยมีไฮเปอร์ลิงก์อยู่ภายในคลิกปุ่มส่งเพื่อส่ง

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง