Oké, dankjewel!
Alleen ben ik niet helemaal thuis hierin. Ik wil voorbeeld 1 gebruiken, dus die heb ik dan ook ingevuld bij VBA. Maar hoe krijg ik het nu werkend dat zodra mijn hoeveelheid die grens overschrijdt er een e-mail venster verschijnt? Sorry als ik lastig ben.
Sub VerstuurEmail()
Dim objOl As Outlook.Application
Dim objMail As Object
Set objOl = Outlook.Application 'Start Outlook
Set objMail = objOl.CreateItem(olMailItem)
'Maakt e-mailbericht aan. olMailItem kan ook worden
'vervangen door 0 (code voor e-mailitem)
'////////////////////////////////////////////////////
'Dit stukje is voor Outlook 2007 voor het vastleggen
'van de afzender van een e-mailbericht. Hiervoor moet
'in VBA wel worden verwezen (Extra, Verwijzingen) naar
'minimaal Microsoft Outlook 12 Object Library.
Dim objAccount As Outlook.Account
For Each objAccount In objOl.Session.Accounts
If objAccount.DisplayName = "Naam Outlook-account" Then
Set objMail.SendUsingAccount = objAccount
End If
Next
Set objAccount = Nothing
'////////////////////////////////////////////////////
'Gebruik eventueel deze optie in oudere versies van Outlook
'waarbij een e-mail wordt verzonden namens een ander e-mailadres.
objMail.SentOnBehalfOfName = "Naam verzender <verzender@emailadres.nl>"
'////////////////////////////////////////////////////
With objMail
.To = "to@emailadres.nl" 'Deze moet worden aangepast
.CC = "cc@emailadres.nl" 'Deze moet worden aangepast of weggelaten
.BCC = "bcc@emailadres.nl" 'Moet ook worden aangepast of weggelaten
'Het is helaas niet mogelijk het FROM-veld aan te passen
'Zie bovenstaande oplossing voor Outlook 2007.
.Subject = "Onderwerp e-mail"
.Body = "Hier plaatst u de inhoud van het bericht"
'.HTMLBody = "<HTML><P>TEST</P></HTML>"
.NoAging = True
.Attachments.Add "C:\WINDOWS\WIN.INI" 'De locatie van de bijlage
'.Display 'Laat e-mail zien voordat hij wordt verzonden
'.Save 'Voorkomt de vraag om op te slaan, slaat op in Postvak In
.Send 'Verzenden van e-mailbericht
End With
Set objMail = Nothing
objOl.Quit
Set objOl = Nothing
End Sub
