Bijlage vertsuren via Gmail

[snb]

Kortom: de vraag is niet duidelijk.


PS. @WB we hebben nog een kwestie lopen over superscript in een combobox. Kun je daar nog even reageren ?

 

[Thankyou]

Au: de vraag is niet duidelijk, dan zal ik het op een andere manier proberen uit te leggen.

Ik heb een bestand waar data in verzameld wordt, zo'n 24 pagina's in het totaal. ( in het voorbeeld bestand heb ik dit terug gebracht naar 3)

Elke pagina wordt de data verzameld betreft deze vestiging hier worden rapporten van gedraaid en opgeslagen als PDF.

Nu krijgt iedereen de rapportage van zijn eigen vestiging en is de informatie over de andere vestigingen niet gewenst te versturen naar een vestiging waar hij niet thuis hoort.

Iedereen dient dus 1bijlage te ontvangen, alleen van de betreffende vestiging, Amsterdam alleen van Amsterdam, Rotterdam alleen van Rotterdam en Dordrecht alleen van Dordrecht.

Ik heb de aangeleverde code's ivm werk nog niet kunnen testen , dat wordt vanavond thuis.- op dit moment alleen een telefoon ter beschikking...

 

[Thankyou]

@Harry, Warm Bakkertje en snb

Het werkt !!
Ik heb het vanavond in het originele bestand verwerkt en dat gaat goed.
Er zat volgens mij weinig verschil in het stuk van warm Bakkertje en snb, de tip van WB ('Verwijzing Microsoft CDO for Windows 2000 Library aanvinken) daar had ik zelf niet aan gedacht

Dit is het geworden, met een 2e bestand (elke keer het zelfde als bijlage)

    For mail = 1 To 12
        With Sheets(mail)
            TempFilePath = ThisWorkbook.Path & "\Test " & .Range("C1") & " verzonden\" & _
            .Range("B1").Value & " test " & .Range("C1").Value & " verzonden.pdf"
            TempFilePath2 = ThisWorkbook.Path & "\Test " & .Range("C1") & " verzonden\" & _
            " Totaal test " & .Range("C1").Value & " overzicht.pdf"
            strbody = "Beste " & .Range("F1").Value & vbNewLine & vbNewLine & _
                "Testmail " & .Range("C1").Value & vbNewLine & _
                "  Testregel" & vbNewLine & _
                "  Testregel" & vbNewLine & vbNewLine & _
                "testregel" & vbNewLine & _
                "Test"
        End With
        With New CDO.Message
            .Configuration(cdoSendUsingMethod) = 2
            .Configuration(cdoSMTPServer) = "smtp.gmail.com"
            .Configuration(cdoSMTPServerPort) = 465
            .Configuration(cdoSMTPUseSSL) = True
            .Configuration(cdoSMTPConnectionTimeout) = 60
            .Configuration(cdoSMTPAuthenticate) = 1
            .Configuration(cdoSendUserName) = "test@gmail.com"
            .Configuration(cdoSendPassword) = "Password"
            .Configuration.Fields.Update
            .AddAttachment TempFilePath
            .AddAttachment TempFilePath2
            .To = Sheets(mail).Range("E1").Value
            .From = """ Bestanden verzonden "" <test@gmail.com>"
            .ReplyTo = Sheets(mail).Range("E1").Value
            .Subject = "Verzonden bestanden " & Sheets(mail).Range("C1").Value
            .TextBody = strbody
            .Send
        End With
    Next

Allen bedankt voor de ondersteuning - Top !
Groet,