raoulduivestein
Gebruiker
- Lid geworden
- 7 aug 2012
- Berichten
- 115
Goedemorgen,
Ik hoop dat iemand mij kan helpen, ik gebruik onderstaande code om een in outlook een e-mail te vesturen.
Nu zou ik graag willen dat als er een cel in kolom A leeg is deze rij niet word meegenomen.
Kan iemand mij opweg helpen?
Groetjes,
Raoul
Ik hoop dat iemand mij kan helpen, ik gebruik onderstaande code om een in outlook een e-mail te vesturen.
Nu zou ik graag willen dat als er een cel in kolom A leeg is deze rij niet word meegenomen.
Kan iemand mij opweg helpen?
Code:
Sub Mail()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Don't forget to copy the function RangetoHTML in the module.
'Working in Excel 2000-2016
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim StrBody As String
Dim StrBody2 As String
Set rng = Nothing
On Error Resume Next
'Only the visible cells in the selection
Set rng = Selection.SpecialCells(xlCellTypeVisible)
'You can also use a fixed range if you want
Set rng = Sheets("Blad2").Range("A1:J30").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Groetjes,
Raoul
Laatst bewerkt: