bijlagen meezenden bij samenvoegen

Angela69

Angela69

Gebruiker
Lid geworden
9 mrt 2017
Berichten
390
Besturingssysteem
Windows
Office versie
365
Hallo,

Kan geen oplossing vinden binnen Word en Outlook of Google
Er moeten zo'n 150 mails naar leden verstuurd worden, op zich niet zo moeilijk, heb het eerder gedaan, maar nu moet ik daar enkele bijlages bij meesturen.

Heeft iemand een idee hoe dat moet?
 
Iedereen dezelfde bijlage(s)?
En plaats je code eens hier.
 
AHulpje zei:
Hoe doe je het nu dan?
Klik om te vergroten...
tot nu toe zonder bijlage lukt dat steeds. Dat hoef ik niet uit te leggen, maar een bijlage naar iedereen meesturen is mijn probleem
 
Heb je überhaupt de bijlage wel toegevoegd aan de e-mail?

bijlagen meezenden bij samenvoegen​

Wat bedoel je met samenvoegen?
 
Laatst bewerkt:
Leg eens uit wat je aan het doen bent; wil je de brief als bijlage sturen, of een mail met een bijlage? Dat laatste kan sowieso met programmeren, waarbij je dan net zo goed het hele proces met VBA kan afhandelen. En de vraag is natuurlijk ook: iedereen dezelfde bijlage, of een persoonlijke bijlage?
 
hallo, ik ben benieuwd hoe je dit met VBA wilt afhandelen.

In Excel heb ik een ledenbestand van zo'n 150 personen die ik een mail (word document) wil sturen.
Daarbij wil ik een bijlage meesturen, voor iedereen dezelfde.
Ik zie dan nergens een mogelijkheid een bijlage mee te zenden die ik bij het versturen van maar een mail naar één persoon d.m.v. paperclip icoon wél kan doen.
 
Vanuit Excel zou je zoiets kunnen gebruiken, zeker als de (persoonlijke) documenten al klaar zijn en het dus alleen om de mails vanuit het Excel bestand gaat.
Code: 
Sub SendEmail()

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strTo As String, strSubject As String, strBody As String
Const Pad As String = "D:\Documenten\Mails\"
Dim i As Integer

    For i = 2 To 151
        strTo = Cells(i, 5).Value
        strSubject = "Feesten!"
        strBody = "Beste " & Cells(i, 4).Value & vbLf & "Hierbij je persoonlijke uitslagen, en een routebeschrijving naar de feestlokatie."
        Set objOutlook = New Outlook.Application
        Set objMail = Outlook.NewMail
        With objMail
            .To = strTo
            .Attachments.Add Pad & Cells(i, 4).Value & ".docx"
            .Attachments.Add Pad & "Routebeschrijving.pdf"
            .Subject = strSubject
            .Body = strBody
            .Send
        End With
    Next i

End Sub

In dit voorbeeldje staat het email adres vanaf E2, en de naam vanaf D2. Dat moet je uiteraard dan nog aanpassen.
 
OctaFish zei:
Vanuit Excel zou je zoiets kunnen gebruiken, zeker als de (persoonlijke) documenten al klaar zijn en het dus alleen om de mails vanuit het Excel bestand gaat.
Code: 
Sub SendEmail()

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strTo As String, strSubject As String, strBody As String
Const Pad As String = "D:\Documenten\Mails\"
Dim i As Integer

    For i = 2 To 151
        strTo = Cells(i, 5).Value
        strSubject = "Feesten!"
        strBody = "Beste " & Cells(i, 4).Value & vbLf & "Hierbij je persoonlijke uitslagen, en een routebeschrijving naar de feestlokatie."
        Set objOutlook = New Outlook.Application
        Set objMail = Outlook.NewMail
        With objMail
            .To = strTo
            .Attachments.Add Pad & Cells(i, 4).Value & ".docx"
            .Attachments.Add Pad & "Routebeschrijving.pdf"
            .Subject = strSubject
            .Body = strBody
            .Send
        End With
    Next i

End Sub

In dit voorbeeldje staat het email adres vanaf E2, en de naam vanaf D2. Dat moet je uiteraard dan nog aanpassen.
Klik om te vergroten...
Hoi visje,
Bedankt voor je code, maar ik ben een digibeet en krijg nadat ik de code heb ingegeven en wil runnen:
Dim objOutlook As Outlook.Application

Eigenlijk begrijp ik niet wat deze code doet, even nog voor de duidelijkheid ik heb één word document welke ik met een bijlage wil verzenden naar zo'n 200 leden. Deze leden staan in een Excelbestand. Gaat dat met jouw programmaatje zo werken?
 
iedereen dezelfde mail = per mail naar (providerafhankelijk) 20 mensen sturen en die samen in bv. BCC (zodat ze elkaar mailadres niet zien) zetten = maar 10 mails te versturen !!!
 
cow18 zei:
iedereen dezelfde mail = per mail naar (providerafhankelijk) 20 mensen sturen en die samen in bv. BCC (zodat ze elkaar mailadres niet zien) zetten = maar 10 mails te versturen !!!
Klik om te vergroten...
Sorry, dat is geen prettige oplossing, 20 x 10 mails versturen en dan ook nog de geadresseerden één voor één kopiëren en plakken
 
ik dacht eerder aan dit, maar aangezien Outlook mijn emailprogramma niet is en vooral Excel365 nogal moeilijk doet, kan ik het niet testen.
CSS: 
Sub SendEmail()

     Dim objOutlook As Outlook.Application
     Dim objMail 'As Outlook.MailItem
     Dim strTo As String, strSubject As String, strBody As String, aAdressen, s

     'Const Pad As String = "D:\Documenten\Mails\"
     Pad = ThisWorkbook.Path & "\"
     Dim i     As Integer

     aAdressen = Range("tabel1[e-mailadres]").Value2
     strTo = "Ikke@mezelf.com"
     strSubject = "Feesten!"
     strBody = "Beste lid." & vbLf & "Hierbij je persoonlijke uitslagen, en een routebeschrijving naar de feestlokatie."
     Set objOutlook = New Outlook.Application
     Set objMail = objOutlook.NewMail
     With objMail
          For i = 1 To UBound(adressen) Step 20
               s = ""
               For j = 0 To 19
                    s = s & "," & aAdressen(i + j, 1)
                    If i + j >= UBound(aaddressen) Then Exit For
               Next
          Next
          .BCC = Mid(s, 2)
          .to = strTo
          .Attachments.Add Pad & Cells(i, 4).Value & ".docx"
          .Attachments.Add Pad & "Routebeschrijving.pdf"
          .Subject = strSubject
          .Body = strBody
          .Display
          .Send
     End With

End Sub
 
Angela69 zei:
Bedankt voor je code, maar ik ben een digibeet en krijg nadat ik de code heb ingegeven en wil runnen:
Dim objOutlook As Outlook.Application
Klik om te vergroten...
Ik heb Outlook als bibliotheek geladen; die moet je dus via Verwijzingen nog even toevoegen in het VBA venster.
 
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan