E-mailadressen

[bobos]

Hallo,

ik heb bij de voetbalcub een ledenlijst met een aantal kolommen

de laatste kolom is met de e-mailadressen van de leden

hoe kan ik van die lijst een e-mail naar iedereen versturen

zonder dat ik al die adressen moet in typen op mijn nieuwe e-mail naar de leden

wie kan mij helpen


groeten Johan

 

[tecsman]

Je schrijft er niet bij of je zelf die lijst moet onderhouden
of dat je hem eenmalig ter beschikking hebt gekregen voor een rondzend-aktie.

Degene die zo'n ledenlijst in beheer heeft,
zou een of meer verzend-groepen (of: mail-lijsten) moeten maken,
waarbij je eenmalig de nodige emailadressen in zo'n groep zet
en zo'n groep dan een naam geeft. ("alle leden", "bestuur", "trainers")

Bij een mailing naar meerdere mensen hoef je dan alleen de naam van de mail-lijst in de adressering op te nemen.
Vervolgens krijgt elk emailadres dat in die groep is inbegrepen, de betreffende mail.


Als dit voor jou een eenmalige aktie is, dan zou je het volgende kunnen proberen:
de kolom met mailadressen selecteren
de selectie kopieren met [CONTROL]-[C]
en vervolgens in het mail-adres-vak plakken met [CONTROL]-[V]
Met een beetje geluk komen alle individuele mailadressen netjes op een eigen regel.

en vervolgens de

 

[bobos]

Hallo,

Ik ben de man in het bestuur die de ledenadministratie moet bijhouden
en leden moet af- of aanmelden bij nde KNVB
de vereniging is S.V.Sluis.

ik ben gevraagd om vanaf heden ook berichten enz. te versturen per e-mail aan de leden

daarom wil ik het eenvoudig kunnen doen en dat ik dat vanaf de ledenlijst doe

ik ben ook de man van de sponsoring daar heb ik ook een lijst van
die ga ik overbrengen naar de ledenlijst

ik stuur hiermee de ledenlijst ben J.H.Bogaard

alvast bedankt voor u moeite


groeten Johan

 

[tecsman]

Niet verstandig om die complete lijst hier te plaatsen. PRIVACY!!!!

 

[tecsman]

Ik heb slecht nieuws voor je: eerst nu wat extra werk verzetten en daar dan later de vruchten van plukken.

Elke keer vanaf die lijst werken is niet verstandig.

 

[Warme bakkertje]

Deze kan je eens testen. Hoewel ik me vragen stel bij het aantal adressen ivm met Spam

Sub aMails()
    With Sheets("Blad1")
        For Each cl In .Range("N2:N" & .Cells(Rows.Count, 15).End(xlUp).Row)
            If cl <> "" Then sq = sq & cl & ";"
        Next
    End With
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = sq
        .Subject = "Lidgeld 2013-2014"
        .Body = "Test Mail"
        .display 'Send
    End With
End Sub

 

[frankwannet]

@Bobos: Ik heb de bijlage uit posting #3 verwijderd.
Hierin stond prive gegevens van derden. I.v.m. privacy verzoek ik je deze onleesbaar te maken of bijv fictieve gegevens te gebruiken.

 

[tecsman]

Deze kan je eens testen.

Jij denkt dat Bobos hiermee uit de voeten kan?

 

[Warme bakkertje]

@ tecsman

Als dit al niet mocht zijn, ben ik er zeker van dat bobos verdere uitleg zal vragen, dewelke wij hem dan ook met alle plezier zullen verschaffen.
Dat is m.i. tenslotte het doel van dit forum en alle vrijwillige helpers die hier actief zijn nl. dat diegenen die iets meer kennis van XL(of VBA) hebben deze ook graag delen met hen die het met iets minder moeten doen.

 

[bobos]

hallo,


hier ben ik weer heb het exelbestand aangepast

hoe moet ik het verder doen



grt JohanBekijk bijlage Ledenlijst volledig excel seizoen 12-13 email.xlsx

 

[Warme bakkertje]

Zie code in post#6. Wijzig enkel deze regel

For Each cl In .Range("C3:C" & .Cells(Rows.Count, 3).End(xlUp).Row)