Rem Koden indsættes i Ark1 (Højreklik / Vis programkode / Indsæt Rem Reference til Microsoft Outlook 12.0 Object Library sættes via VBA-vinduet / Tools / References Public Sub afsendMails() Dim ræk As Long For ræk = 1 To ActiveCell.SpecialCells(xlLastCell).Row sendMailen Range("A" & ræk) 'email-adresser anført i kolonne A Next ræk End Sub Private Sub sendMailen(modtager) Dim mailApp, Namespace, nyMail, nyAtt Dim emne, vedhft, body
emne = "Dette er en test" body = "Kære modtager" & vbCr & vbCr & vbCr & "Med venlig hilsen"
On Error GoTo sendMailFejl
Set mailApp = CreateObject("Outlook.Application") Set Namespace = mailApp.GetNamespace("MAPI")
Set nyMail = mailApp.CreateItem(olMailItem) Set TilModtager = nyMail.Recipients.Add(modtager)
Hej Ovenstående virker perfekt til en mail pr. mailadresse. Kan jeg sende én mail til flere postmodtagere samtidig, altså en mail med flere mailadresser på?
Du må prøve dig frem - ellers må du have nogen til at hjælpe dig.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.