基於同一行中的值創建電子郵件的可點擊超鏈接？

我正在嘗試創建一個當引用自身的超鏈接被點擊時運行的宏。我想用預定義的TO，CC，Subject，FROM創建一個Outlook電子郵件，並希望簽名行。目標單元格將是超鏈接，並且上述值已存儲在同一行（右側）的單元格中。基於同一行中的值創建電子郵件的可點擊超鏈接？

Email  To  CC From Subject Body  Store Variance Date 
Email now Value Value Value Value Not sure Value Value  Value

所有值當前都以文本字符串形式存儲。我希望用戶能夠點擊「立即發送電子郵件」，並根據右側同一行中的單元格生成電子郵件。

Example Email: 
From: [email protected] 
To: [email protected]; [email protected] 
CC: [email protected]; [email protected]; <- CC line varies based on variance value 
Subject: Store# Product type date variance 
Body: Premade text with values as per above also in here

是否可以添加用戶簽名？

我已經看過ron de bruin的電子郵件信息，我只是沒有在這個東西最偉大的，無法弄清楚。

來源

2013-12-18 user3113540

這是實現你想要的最簡單的方法。

久經考驗

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    Dim Rw As Long 

    If Target.Range.Column = 1 Then 
     If UCase(Target.Range.Value) = "EMAIL NOW" Then 
      Rw = Target.Range.Row 

      Dim OutApp As Object, OutMail As Object 

      Set OutApp = CreateObject("Outlook.Application") 
      Set OutMail = OutApp.CreateItem(0) 

      With OutMail 
       .To = Cells(Rw, 2) 
       .CC = Cells(Rw, 3) 
       ' 
       '~~> So On 
       ' 

       .Display 
      End With 
     End If 
    End If 
End Sub

來源

2013-12-18 02:30:05

基於同一行中的值創建電子郵件的可點擊超鏈接？

回答

相關問題