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

mail versturen met VBA

  • Onderwerp starter Onderwerp starter regf
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

regf

Gebruiker
Lid geworden
27 mrt 2009
Berichten
136
Hoi.
onderstaande regel in VBA werkt perfect om mail te versturen, echter wil ik dezelfde mail naar een tweede persoon kopieren.
vreemd genoeg kan ik niet vinden hoe dat zou kunnen werken.

ActiveSheet.Copy
ActiveWorkbook.SendMail "naam@bedrijf.com", "bestelformulier"
ActiveWorkbook.Close False
MsgBox "bestelformulier is verzonden naar naam"
Range("B3").Select
ActiveWorkbook.Close SaveChanges:=False
Application.CutCopyMode = False
End Sub

BVD Reg
 
Via een array:
Code:
ActiveSheet.Copy
ActiveWorkbook.SendMail Array("naam@bedrijf.com", "anderenaam@anderbedrijf"), "bestelformulier"
ActiveWorkbook.Close False
MsgBox "bestelformulier is verzonden naar naam"
ActiveWorkbook.Close SaveChanges:=False
Application.CutCopyMode = False

Of via een bereik (in dit geval A1 t/m A10), eventueel benoemd.
Bijv.:
Code:
ActiveSheet.Copy
ActiveWorkbook.SendMail Range("A1:A10"), "bestelformulier"
ActiveWorkbook.Close False
MsgBox "bestelformulier is verzonden naar naam"
ActiveWorkbook.Close SaveChanges:=False
Application.CutCopyMode = False

Met vriendelijke groet,


Roncancio
 
beste Roncancio

bedankt, het werkt.
ik zet de vraag op opgelost.

mvg Reg
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan