Send til flere

Prøv med

.SendMail "danny@hansen.dk; modtager2@domæne.dk", "skema fra Danny".

Jeg mener, at det virker, hvis du semikolonseparerer adresserne, præcist, som du ville have gjort i Outlook.

Dette har jeg prøvet, men det virker ikke.
Hvis jeg tilføjer endnu et navn med adskildelse af semikolon sender den hverken til modtager 1 eller 2. Men har jeg derimod kun den ene modtager sender den ?

Du skal lægge alle dine modtagere ind i et array.

Function SendMailToMultipleRecipients()
Dim recipients() As Variant
  ReDim recipients(1 To 2) As Variant
 
  recipients(1) = "mailadresse 1"
  recipients(2) = "mailadresse 2"
  ThisWorkbook.SendMail recipients(), "Test mail"
End Function

Hvad mener du med at lægge mine modtagere ind i et array?

Din kode er jo ikke noget problem at kopierer ind og rette til. Men hvor skal den ligge og hvordan?

Et array er en variabel, der kan indeholde mange forskellige værdier. De enkelte værdier kaldes ved hjælp af en reference til, hvor de ligger i arrayet. I ovennævnte eksempel har jeg lavet et en-dimensionelt array, hvor jeg lægger mailadresserne. Du kan kende et array på, at variablen ender på to paranteser "()".

Du kan evt lægge den umiddelbart før dit første "On Error" statement.

Hvis du vil have flere end to adresser ind, skal du udvide dit array. Kig under ReDim og ændr tallet til det antal mailadresser, du vil have ind.

F.eks. ReDim Receipients(1 to x) as variant, hvor x er antallet af mailadresser

Udfyld kom derefter data i arrayet med
Receipients(3) = "Mailadresse 3"
Receipients(4) = "Mailadresse 4"
etc.

Nu har jeg brugt timer på at se om jeg kunne få det til at virke, men uden held. Kunne jeg evt. prøve at sende mit ark til dig så du kan se hvad problemet er?

Prøv evt. sat se her

www.kronsell.net/send_aktivt_ark.htm

Lige præcis. Præcis samme løsning.

Men du er velkommen til at maile mig på jc snabela 3xchristensen.dk. Så kigger jeg på det.

Svar som aftalt.

Endnu engang tak for hjælpen :-)