Besvar flere mails på en gang

Hej

Den eneste måde er at lave en bette makro, der samler alle mailadresser sammen på de valgte mail, og sætter det i BCC feltet på en ny mail. Herefter kan du skrive din besked og sende den.

Nedenfor er skrevet makroen, der kan gøre det for dig!

Sub sendStandardSvarTilValgte()
    Dim ex As Explorer
    Dim mail As MailItem
    Dim str As String
    Set ex = Application.ActiveExplorer
   
    For Each mail In ex.Selection
        str = str & mail.SenderEmailAddress & "; "
    Next
   
    Set mail = Application.CreateItem(olMailItem)
   
    mail.BCC = str
    mail.Subject = "Besvarelse af ansøgning"
   
    mail.Display
   
End Sub


/Christian
ck@officekonsulenterne.dk

Kanon... takker