Findpudse VBA til oprettelse af emails i Outlook via Excel

Excel 2010

Jeg er ved at finpudse en VBA kode til automatisk oprettelse/udsendelse af emails.

Mine celler indeholder følgende:

Kolonne A: email adresse
Kolonne B: emne
Kolonne C: tekst

Jeg bruger følgende VBA kode:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If InStr(1, Target, "@") = 0 Then Exit Sub
    On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String

    Set olApp = GetObject("Outlook.Application")

        Recep = Target.Value
        MsgTxt = Target.Offset(0, 2).Value
        Set olNewMail = CreateItem(olMailItem)
        With olNewMail
            .Recipients.Add Recep
            .Body = MsgTxt
            .Subject = Target.Offset(0, 1).Value
            .ReadReceiptRequested = False
            .OriginatorDeliveryReportRequested = False
            .Save
            .Display
  '          .Send
        End With
    Cancel = True
End Sub


Koden fungerer sådan at hvis man markerer cellen så oprettes en mail i Outlook.

Jeg ville gerne hvis koden kunne udbygges med følgende elementer:

1. Muligt at indsætte en sti i f.eks. kolonne D, så en fil kan vedhæftes mailen.

2. At når mailen oprettes i Outlook, så indsættes automatisk den email signatur som ellers normalt indsættes ved oprettelse af nye mails.

Derudover vil jeg også gerne modtage forslag til hvordan man i et andet ark, kunne kode en lignende liste, men med det twist at man skal kunne afkrydse ud for de emails som skal sendes, og så sende det hele ved tryk på en enkelt knap.

Jeg ser frem til jeres forslag.