我正在嘗試從excel范圍(rng 1到6)創建一個電子郵件，其中包含A列和D列中每個單元格的超鏈接 . 以下是為這些范圍創建超鏈接的代碼示例 . 一切正常 .

ActiveSheet.Hyperlinks.Add Anchor:=ActiveWorkbook.Sheets("Overdue").Range("A" & D2), _

Address:="some address" & ActiveWorkbook.Sheets("Overdue").Range("A" & D2).Value

ActiveSheet.Hyperlinks.Add Anchor:=ActiveWorkbook.Sheets("Overdue").Range("D" & D2), _

Address:="some other address" & ActiveWorkbook.Sheets("Overdue").Range("A" & D2).Value

然后我有以下代碼，從excel范圍(rng1到6)創建一個電子郵件 . 創建電子郵件時，超鏈接不會傳輸到Outlook . 文本帶有下劃線，好像有一個超鏈接但不可點擊 .

Sub Mail_Body()

Dim rng1 As Range

Dim OutApp As Object

Dim OutMail As Object

Dim wb2 As Workbook

Dim MyDate, Weeknr, MyFileName, MyTime, MyMonth

Dim Mail1 As String

Dim Mail2 As String

Dim Subject As String

Dim Warr As String

Dim rng2 As Range

Dim rng3 As Range

Dim rng4 As Range

Dim rng5 As Range

Dim rng6 As Range

Dim Subject_email As String

Application.ScreenUpdating = False

Application.EnableEvents = False

nPath = Environ("temp") & "\" & ThisWorkbook.Sheets("Lists").Range("AA1").Value

Set wb2 = Workbooks.Open(nPath)

D2 = Sheets("Critical").Range("A1").Offset(Sheets("Critical").Rows.Count - 1, 0).End(xlUp).Row

D3 = Sheets("High").Range("A1").Offset(Sheets("High").Rows.Count - 1, 0).End(xlUp).Row

D4 = Sheets("Low").Range("A1").Offset(Sheets("Low").Rows.Count - 1, 0).End(xlUp).Row

D5 = Sheets("Other").Range("A1").Offset(Sheets("Other").Rows.Count - 1, 0).End(xlUp).Row

D6 = Sheets("Overdue").Range("A1").Offset(Sheets("Overdue").Rows.Count - 1, 0).End(xlUp).Row

Set rng = Nothing

Set rng1 = Nothing

Set rng2 = Nothing

Set rng3 = Nothing

Set rng4 = Nothing

Set rng5 = Nothing

Set rng6 = Nothing

Set rng2 = Sheets("Critical").Range("A1:J" & D2).SpecialCells(xlCellTypeVisible)

Set rng3 = Sheets("High").Range("A1:J" & D3).SpecialCells(xlCellTypeVisible)

Set rng4 = Sheets("Low").Range("A1:J" & D4).SpecialCells(xlCellTypeVisible)

Set rng5 = Sheets("Other").Range("A1:J" & D5).SpecialCells(xlCellTypeVisible)

Set rng6 = Sheets("Overdue").Range("A1:L" & D6).SpecialCells(xlCellTypeVisible)

Set OutMail = Nothing

Set OutApp = Nothing

On Error Resume Next

Set OutApp = GetObject(, "Outlook.Application")

If OutApp Is Nothing Then Set OutApp = CreateObject("Outlook.Application")

On Error GoTo 0

'MsgBox OutApp

Set OutMail = OutApp.CreateItem(0)

Dim Session As Object

Set Session = OutApp.GetNamespace("MAPI")

Session.Logon

Create email

With OutMail

.To = Mail1

.CC = Mail2

.BCC = ""

.Subject = Subject_email

.HTMLBody = "Overview:" & "
" & RangetoHTML(rng1) _

& "
" & "Critical" & "
" & RangetoHTML(rng2) & "
" & "High" _

& "
" & RangetoHTML(rng3) & "
" & "Low" & "
" & RangetoHTML(rng4) _

& "
" & "Other" & "
" & RangetoHTML(rng5) _

& "
" & "Overdue" & "
" & RangetoHTML(rng6)

.Attachments.Add nPath '.FullName

.Recipients.ResolveAll

.Display '.Send

End With

我無法共享此代碼的輸出，但如上所述，會發生的事情是Excel工作表中的超鏈接不會傳輸到Outlook電子郵件 . 它們是藍色的并帶有下劃線但沒有超鏈接 .

如何將excel的活動超鏈接轉移到outlook？我一直無法找到符合我特定需求的預先存在的解決方案 .

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的java 邮件 超链接_将Excel范围中的超链接传输到Outlook电子邮件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。