outlook adresser i excell

Hvor mange adresser er der tale om?

Forskelligt fra celle til celle, men imellem 2-5

Skal der sendes til alle adresser samtidigt?

PS: Svar skal kun anvendes af forslagsstillere - anvend venligst Kommentar som spm opgavestiller.

ja - adresserne skal bruges samtidig ifm afsendelse af merged mail.

Via VBA (programmering) kan det lade sig gøre..

Det overstiger mit kendskab til Excel. Kan jeg få dig til at vise hvordan?

Ja - vender tilbage..

Rem Reference sættes til Microsoft Outlook xx Object Library under Tools / References
Public Sub afSendMails()
Const emne = "Test-emne"                                        'justeres
Const meddelelse = "Meddelelsen er som sagt en test"            'justeres

Dim antalRæk As Long
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    vedhftFil = "D:\test.txt"                                  'justeres
   
    For ræk = 1 To antalRæk
        modtager = Range("A" & ræk)                            'email(s) er i kolonne A - kan justeres
        emailSendes modtager, emne, vedhftFil, meddelelse
    Next ræk
   
End Sub
Public Sub emailSendes(modtager, emne, vedhft, body)
Dim mailApp, Namespace, indbakke, nyMail, nyAtt
    Set mailApp = CreateObject("Outlook.Application")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nyMod = nyMail.Recipients
    nyMod.Add modtager
    nyMail.Subject = emne
    nyMail.body = body
   
    Set nyAtt = nyMail.Attachments
    nyAtt.Add vedhft
    nyMail.Display                                              'viser mailen
'    nyMail.Send                                                'send mailen - fjern '
End Sub

super - 1000 tak

super - 1000 tak

Selv tak - så får du et svar, som du kan acceptere, hvis løsningen kan anvendes.