Meerdere e-mails versturen

[HSV]

Lijkt me ook nogal een moeilijke opgave om het in een formule te smeden.

Een spatie is wel te vinden, maar zaken zoals waar de komma staat iets lastiger.
Zomaar wat om op te checken.
.com
.eu
.nl
.be
.uk

Ook wat er na de @ komt is moeilijk te vangen.
Als in onderstaande schrijffouten voorkomen.
gmail.com → hmail.com
hotmail.com → jotmail.com

Misschien dat er wat te doen is in je code.
Ik kijk er later wel even naar als er niemand reageert.

 

[edmoor]

Even voor je uitgewerkt waar ik in #18 naar verwees.
Tik in kolom A vanaf regel 2 een email adres in:
Bekijk bijlage SUVERMO_EMAILCHECK.xlsm

Uiteraard wordt alleen gecontroleerd op de structuur van het adres.
Dus niet of het ook een bestaand adres is.

 

[SUVERMO]

dat werkt prima, kan dit en hoe in het excel van #13 verwerkt worden

 

[HSV]

Zoals @edmoor al schreef;

Uiteraard wordt alleen gecontroleerd op de structuur van het adres.

Onderstaand geeft dus hetzelfde resultaat als de formule.
t@gmac.om

 

[SUVERMO]

inderdaad, men ontvangt dan volgende melding

Adres niet gevonden
Je bericht is niet bezorgd aan t@gmac.om omdat het domein gmac.om niet kan worden gevonden. Controleer het op typefouten of onnodige spaties en probeer het opnieuw.

 

[edmoor]

Lijkt me vrij logisch.
Maar je eigen voorbeeld met de spaties wordt wel als fout gezien door de regular expression.
Hat adres t@gmac.om is syntactisch gewoon correct.

 

[HSV]

Voor een formule in het werkblad komt onderstaande redelijk in de buurt.

=EN(VIND.SPEC("*@*.";A1);ISFOUT(VIND.SPEC(" ";A1)))

 

[SUVERMO]

kan iemand onderstaande code aanpassen, staat ook in bijgevoegde excel

For j = 1 To UBound(tekst)
        E_MAILTEKST = E_MAILTEKST & "<tr><td>" & Join(Application.Index(tekst, j), "</td><td>") & "</td></tr>"
    Next
    E_MAILTEKST = E_MAILTEKST & "</table><P></P><P></P>"
    
    With CreateObject("Outlook.Application").CreateItem(0)
    'hier start met controle = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
    'als geen fout dan gewoon verder gaan met LUS1
    'anders
    
    'a = Range("E_MAILADRES").Value
    'E_MAILADRES = Range("E_MAILADRES_EIGEN_ADRES").Value
    'E_MAILONDERWERP = TELLER & "." & Range("AANTAL_MAILS").Value & "." & a & " = fout e-mailadres"
    'E_MAILTEKST = a & " = fout e-mailadres"
    'verder gaan met LUS1
    
    'volgende rij is begin LUS1
        .To = E_MAILADRES
        .CC = CC_E_MAILADRES
        .Subject = E_MAILONDERWERP
        .HTMLBody = E_MAILTEKST
        If BIJLAGE_1 <> "" Then .attachments.Add BIJLAGE_1
        If BIJLAGE_2 <> "" Then .attachments.Add BIJLAGE_2
        If BIJLAGE_3 <> "" Then .attachments.Add BIJLAGE_3
        If BIJLAGE_4 <> "" Then .attachments.Add BIJLAGE_4
        If BIJLAGE_5 <> "" Then .attachments.Add BIJLAGE_5
        If BIJLAGE_6 <> "" Then .attachments.Add BIJLAGE_6
        If BIJLAGE_7 <> "" Then .attachments.Add BIJLAGE_7
        If BIJLAGE_8 <> "" Then .attachments.Add BIJLAGE_8
        If BIJLAGE_9 <> "" Then .attachments.Add BIJLAGE_9
        If BIJLAGE_10 <> "" Then .attachments.Add BIJLAGE_10
        .Send
    E_MAILTEKST = ""
    a = Range("E_MAILONDERWERP").Value
    End With
    Next i
End Sub

 

[edmoor]

Je hebgt eerdere adviezen erover niet opgevolgd.

 

[SUVERMO]

ik kom er niet uit, nu ben ik zeker van VBA is mijn kennis minimaal

 

[edmoor]

Sorry, maar ik wordt geen wijs uit je code en je document.
De wijze van controleren of een email adres syntactisch in orde is staat in het document dat ik plaatste in #22.

 

[SUVERMO]

sorry, niet goed gelezen, dacht dat alleen voor cel A2 was, maar het is voor de cellen vanaf A2

als er in cellen B2 t.e.m. B101 100 e-mailadressen staan en het bereik B2;B101 kopiëert naar A2 dan gebeurt er niets, kun jij dit aanpassen
is het mogelijk om bij een ongeldig e-mailadres, de inhoud niet te verwijderen maar de tekstkleur te veranderen of ernaast in kolom B te vermelden "ongeldig e-mailadres"

 

[SUVERMO]

als er in cellen B2 t.e.m. B101 100 e-mailadressen staan en het bereik B2;B101 kopiëert naar A2 dan gebeurt er niets, kan iemand dit aanpassen
is het mogelijk om bij een ongeldig e-mailadres, de inhoud niet te verwijderen maar de tekstkleur te veranderen of ernaast in kolom B te vermelden "ongeldig e-mailadres"

 

[Haije]

SUVERMO,

(voorbeeld) bestand?

 

[SUVERMO]

SUVERMO_EMAILCHECK.xlsm in #22

 

[HSV]

Het hele bestand in #22 bevat geen enkele mailadres.

 

[SUVERMO]

nu met fake adressen

 

[VenA]

wat lukt er niet dan?

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    ar(j, 1) = ValidateEmailAddress(ar(j, 2))
  Next j
  Cells(1).CurrentRegion = ar
End Sub

 

[SUVERMO]

iedereen bedankt voor het geduld en de hulp
hierbij het resultaat