Opgelost door aanvinken:
In Vba extra => verwijzing => microsoft outlook office library (aangevinkt)
Nu volgende fout : Foutopsporing in het rood (zie verder)
blauwe tekst = uitleg fout
Sub VerstuurEmail()
Dim objOl As Outlook.Application
Dim objMail As Object
'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
Objectvariabele of blokvariabele With is niet ingesteld (Fout 91)
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@????.be>"
'////////////////////////////////////////////////////
With objMail
.To = "ontvanger@mail.be" 'Deze moet worden aangepast
'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
Georgyboy
