Beste,
Ik ben al een heel eind gekomen met het schrijven van een VBA, maar nu wil ik eigenlijk dat wanneer de code ten einde hij opnieuw begint tot mijn range is afgelopen (max regel 177).
Code tot dusver:
Sub EmailViaOutlook()
'Create the email object
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = Sheets(1).Range("G93")
.CC = Sheets(1).Range("H93")
.BCC = Sheets(1).Range("I93")
.Subject = "Costcenter report(s) 2016-06"
.Body = "TEXT"
.Attachments.Add Sheets(1).Range("J93").Value & ".xlsx"
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Het betreft dus 177 emails met verschillende files en verschillende adressen.
Kunnen jullie hiermee helpen?
Ik ben al een heel eind gekomen met het schrijven van een VBA, maar nu wil ik eigenlijk dat wanneer de code ten einde hij opnieuw begint tot mijn range is afgelopen (max regel 177).
Code tot dusver:
Sub EmailViaOutlook()
'Create the email object
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = Sheets(1).Range("G93")
.CC = Sheets(1).Range("H93")
.BCC = Sheets(1).Range("I93")
.Subject = "Costcenter report(s) 2016-06"
.Body = "TEXT"
.Attachments.Add Sheets(1).Range("J93").Value & ".xlsx"
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Het betreft dus 177 emails met verschillende files en verschillende adressen.
Kunnen jullie hiermee helpen?