• 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.

Meerdere e-mails versturen

Status
Niet open voor verdere reacties.
S

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
De macro van de excel verzend meerdere e-mails, ze worden allemaal naar hetzelfde adres verstuurd.
Als U in B1 uw e-mailadres invult kunt u testen.
Wel zijn er een paar problemen, heeft u daar een oplossing voor.
Zowel gisteren als vandaag komen bij het testen eerst de e-mails in de map inbox van Gmail, na een paar testen komen deze in de map spam van Gmail
Zowel gisteren als vandaag werden bij een eerste test berichten verzonden. Na meerdere tests moest outlook geopend worden en komen deze in de map spam
Is daar een oplossing voor?
 

Bijlagen

  • E-mails test hulp.xlsm
    62,2 KB · Weergaven: 22
  • inbox.jpg
    inbox.jpg
    141,2 KB · Weergaven: 48
  • spam.jpg
    spam.jpg
    283,2 KB · Weergaven: 46
er zijn enkele aanpassingen gedaan daardoor zijn er blijkbaar minder problemen
1, onderwerp heeft steeds een andere naam
Code: 
a = Range("E_MAILONDERWERP").Value
E_MAILONDERWERP = TELLER & "." & Range("AANTAL_MAILS").Value & "." & a
2, de e-mails met verschillende korte tussenpozen verzonden.
Code: 
wacht = Application.WorksheetFunction.RandBetween(5, 25) * 0.000001 '5 = 0,5sec ; 25 = 2,5sec
    Application.Wait (Now + wacht)

vandaag heb ik de excel gebruikt voor het verzenden van 45+10+70 e-mails
deze werden pas echt verzonden als outlook werd geopend, kan een macro-opdracht zorgen voor onmiddellijke verzending.
van de 125 e-mails werden er 6 in de map concepten geplaatst, kan dit worden voorkomen?
 

Bijlagen

  • E-mails test hulp.xlsm
    62,4 KB · Weergaven: 21
Openen van Outlook:



Code: 
 Application.ActivateMicrosoftApp xlMicrosoftMail
   Application.Wait DateAdd("s", 5, Now)
  ' rest van je code.
 
bedankt Harry, ga het testen

eerst wat gegoogeld, betekent het dat outlook gesloten wordt na 5 seconden, of na 5 seconden na het verzenden van de laatste
 
Opent Outlook, en geeft 5 seconden rust in code om het programma op te laten starten alvorens iets te verzenden.
 
begrepen

als de macro start is het scherm van outlook zichtbaar
welk commando moet er uitgevoerd worden om het excelscherm terug zichtbaar te maken

kan een laatste commando outlook terug sluiten?
 
sorry, een beetje te snel gereageerd, het gebeurde slecht eenmalig.
wel krijg ik nu volgende melding
gebeurt dit omdat outlook een vorige maal is afgesloten zonder dat alles verzonden was
 

Bijlagen

  • outlook.jpg
    outlook.jpg
    49 KB · Weergaven: 53
Ik heb daar geen last van.

Misschien de beveiliging iets lager zetten.
Om Outlook weer te sluiten.

Code: 
 CreateObject("Outlook.Application").Quit
 
is het mogelijk om in het bericht een logo te plaatsen?
 

Bijlagen

  • E-mails test hulp.xlsm
    67 KB · Weergaven: 16
Nu staat er een fout in het 3° e-mailadres, dan stopt de macro. Is het mogelijk om de macro dan toch verder te laten gaan in een andere opdracht. Deze zou dan kunnen bestaan uit zend mail naar eigen adres met als onderwerp dat het e-mailadres fout is.
 

Bijlagen

  • E-mails test hulp.xlsm
    67,8 KB · Weergaven: 17
Voeg dit eens toe.
Code: 
With CreateObject("Outlook.Application").CreateItem(0)
[COLOR=#ff0000]    If E_MailAdres Like "?*@?*.?*" then[/COLOR]
        .To = E_MailAdres
En onderaan nog een 'End If'.
 
prima,

kan dat ook met een formule in het excelrekenblad?
dan kunnen fouten opgespoord worden voor de macro wordt uitgevoerd
 
Code: 
=vind.spec( "?*@?*.?*";a1)
 
heb dit gevonden op het web


mailRegExp = /^[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)*@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)+$/;


kan zoiets in een formule?
 
volgend de formule =VIND.SPEC( "*@?*.?*";A1)
is onderstaande een goed adres
frans@verm ondengmail c.om
dit is echter niet geldig
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan