Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht forum,
Onderstaande code verzend de email NIET maar zet hem in
outlook UIT , wordt dus niet verzonden.
Is er in deze code een aanvulling te maken zodat de email wel direct verzonden word?
Jaap
Onderstaande code verzend de email NIET maar zet hem in
outlook UIT , wordt dus niet verzonden.
Is er in deze code een aanvulling te maken zodat de email wel direct verzonden word?
Jaap
Code:
Sub Send_Range()
ActiveSheet.Range("B2:N12").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "email adres"
.Item.Subject = "Factuur"
.Item.Attachments.Add "C:\locatie van de te versturen factuur"
.Item.Send
End With
Range("A1").Select
End Sub