E-mail versturen naar postvak uit

[Roma]

Specialisten,
Weet iemand hoe je vanuit excel een mail kan versturen naar postvak uit in outlook.
Reden is dat ik 40 mails met elk een eigen PDF tabblad maandelijks moet versturen.

Ik heb gekeken op de site van Ron de Bruin maar daar kan ik niks vinden.
Alvast bedankt.

 

[edmoor]

Daar hoef je een mail niet specifiek naar toe te sturen. Als je een mail verstuurd gaat deze vanzelf naar Postvak Uit. Het versturen van een email d.m.v. VBA is heel goed beschreven door Ron de Bruin en is hier ook al vele malen aan bod geweest. Daar zou je dus zonder problemen alles over moeten kunnen vinden.

 

[Roma]

Bedankt, ik ga verder zoeken.

 

[edmoor]

Als je er echt niet uitkomt dan kunnen we uiteraard helpen

 

[Roma]

Dank voor je eventuele ondersteuning

 

[OctaFish]

Maar vertel eens waarom je specifiek naar Postvak Uit wilt sturen; daar ben ik wel benieuwd naar

 

[Roma]

@Michel,
Ik heb ongeveer 50 tabbladen waarvan er 35 verstuurd moeten worden (of minder) naar de medewerkers. Dit elke maand.
Ik denk (ben wel een beetje blond) dat als je ze eerst naar postvak uit verstuurd je ze dan allemaal tegelijk kunt verzenden.

 

[Roma]

Ik heb een code van Ron de Bruin aangepast en gelukt.

Nu heb ik nog 2 vragen:
Nu moet ik 35 keer een mail versturen(dus 35 keer klikken).Kan dat ook in één keer?
bestaat er ook de mogenlijkheid om de naam van het PDF file ook de naam te geven die in de sheet staat (altijd cel F10).

 

[Warme bakkertje]

Dat hangt er vanaf hoe jouw bestand opgebouwd is.
Als elk tabblad de naam heeft van een medewerker of gesorteerd zijn in een bepaalde volgorde dan kunnen we via de lijst op blad medewerkers dit alles automatiseren zodat 1 druk op de knop volstaat.
Pdf's aanmaken met de naam v/d medewerker en versturen behoren dan tot de mogelijkheden

 

[Roma]

@Rudi,
tabbladen hebben de naam ORT1 t/m ORT 35. Elke naam staat Cel F10
De namen komen ook voor op blad medewerkers.
Ron

 

[Roma]

1 vraag opgelost.
Alleen de vraag hoe kan ik alle e-mails in 1 keer versturen.
zie#8

 

[edmoor]

Dat kan als je bijvoorbeeld deze functie aan een module toevoegd:

Function MailAdressen() As String
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If LCase(sh.Name) <> "medewerkers" Then
            MailAdressen = MailAdressen & sh.Range("A1") & ";"
        End If
    Next sh
    MailAdressen = Left(MailAdressen, Len(MailAdressen) - 1)
End Function

Waarna je in plaats van dit:

RDB_Mail_PDF_Outlook FileName, sh.Range("A1").Value, " afgelopen maand", _

dit gebruikt:

RDB_Mail_PDF_Outlook FileName, MailAdressen(), " afgelopen maand", _

De functie levert een string met de mail adressen uit de verschillende sheets, gescheiden door een ;
Dat is normaal gesproken het teken om meerdere mail adressen in 1 keer op te geven.

 

[Roma]

@Edmoor,
Bedankt het werkt.
Waar geen e-mail adressen zijn ingevuld komen in de mail allemaal 0; 0; 0; 0 te staan.
Darnaast is de vraag kunnen ze ook als BCC verstuurd worden

 

[edmoor]

Je kunt die functie uiteraard zo aanpassen dat je controleert of er in A1 wel een correct mail adres staat. Daar kun je je eigen creativiteit op los laten. Wat ik je gaf is alleen een zetje in de juiste richting. Als BCC versturen kan ook. Dat kun je in de eigenlijke mail routine doen door de StrTo niet achter .To te zetten maar achter .BCC

Dat had je in die mail routine ook kunnen zien

 

[Roma]

Ook BCC is weer opgelost. SUPER
Niet iedereen in de lijst krijgt een mail. En de lijst is een vast gegeven(word door het hele bestand gebruikt)

 

[edmoor]

Dan kun je daar die voorbeeld routine op aanpassen.

 

[Roma]

ik snap niet wat je bedoeld

 

[edmoor]

Dat je die voorbeeld routine die ik je gaf zodanig kunt aanpassen dat hij de string met adressen oplevert zoals je die wilt hebben.

 

[Roma]

@edmoor,
Ik heb een code gemaakt maar hij geeft toch nog een foutmelding.
Daarnaast is alles nu naar BCC gegaan. als ik dan een e-mail adres aan ingeef dan krijgt die ook alles binnen.
Ik dacht dat ik het voor elkaar had maar helaas.

 

[edmoor]

Als je zegt een foutmelding te krijgen is het ook wel handig om erbij te vertellen wat die melding dan is.