Hyperlänktext

Extrahera e-postadresser från hyperlänkar

Istället för att ange korrekta e-postadress kan vi ange namn, vilka vi skapar hyperlänkar till och där dessa refererar till e-postadress.

Det kan vara en fördel i vissa sammanhang att skapa dylika uppställningar dock blir det problematiskt om vi vill sända e-post till dessa adressater. Här visas ett sätt som möjliggör det.

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2004 All rights Colo - Used by permission)

Option Explicit

Sub E_Post_Hyperlankar()

   '© 2004 Alla rättigheter XL-Dennis

   Dim olApp As Outlook.Application

   Dim olNewMail As Outlook.MailItem

   Dim wbBok As Workbook

   Dim wsSheet As Worksheet

   Dim rnRecipients As Range

   Dim hlName As Hyperlink

   Dim stName As String

   Dim i As Long

   Set olApp = New Outlook.Application

   Set olNewMail = CreateItem(olMailItem)

   Set wbBok = ThisWorkbook

   Set wsSheet = wbBok.Worksheets("Blad1")

   With wsSheet

      Set rnRecipients = .Range("C4:E4")

   End With

   With olNewMail

      For Each hlName In rnRecipients.Hyperlinks

         'Här extraheras e-postadresserna.

         stName = Mid(hlName.Address, 8)

         'Vilka läggs till mottagarlistan här.

         .Recipients.Add stName

      Next hlName

      .Subject = "Programlista"

      .Body = "Enligt överenskommelse."

      With .Attachments

         .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

         .Item(1).DisplayName = "Send e-mail"

      End With

      .Save

      .Display

   End With

End Sub