Beste,
Ik heb een excel file met verschillende tabelletjes.
Via een commandbutton verzend ik een bepaalde tabel via mail, bij wijze van overzicht voor de gebruiker.
De eerste cel van de tabel bevat steeds een datum.
Ik zou graag bemachtigen dat de tabel met de eerstkomende datum verzonden wordt.
De Set Range is dus afhankelijk van de datum van vandaag én van die van de tabellen.
ik heb reeds onderstaande code gebruikt om de mail op te stellen:
Ik heb een excel file met verschillende tabelletjes.
Via een commandbutton verzend ik een bepaalde tabel via mail, bij wijze van overzicht voor de gebruiker.
De eerste cel van de tabel bevat steeds een datum.
Ik zou graag bemachtigen dat de tabel met de eerstkomende datum verzonden wordt.
De Set Range is dus afhankelijk van de datum van vandaag én van die van de tabellen.
ik heb reeds onderstaande code gebruikt om de mail op te stellen:
Code:
Private Sub CmdZendMail_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set rng = Nothing
On Error Resume Next
Set rng = Sheets("Sheet1").Range("A1:D12")
On Error GoTo 0
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "....@gmail.com"
.CC = ""
.BCC = ""
.Subject = "test"
.HTMLBody = RangetoHTML(rng)
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub