• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Emailadressen automatisch selecteren

Status
Niet open voor verdere reacties.
N

nickboon18

Gebruiker
Lid geworden
4 aug 2007
Berichten
5
hey, ik heb een code om email te verzenden via excel ik zou graag de emailadressen willen gebruiken die in kolom a staan hoe haal ik ze op en verwerk ik ze in onderstaande code?

dank en groet Nick



Code: 
Option Explicit

Private Sub send_Click()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail Array("CELA1", "CELA2"), _
"onderwerp"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True

End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan