VBA geeft foutcode: compileerfout: Toewijzing aan constante niet toegestaan

[aaadt]

Hoi,

Ik heb een probleempje met een nieuw excel bestand wat ik heb. Ik heb een macro gekopieerd uit een oud bestand (daar werkte hij) voor het versturen van een mail met bijlagen (pdf's). Nu krijg ik in dit bestand de volgende foutmelding: Compileerfout toewijzing aan constante niet toegestaan.

dit is de code die ik gebruikt heb.

Sub mailen()

Dim naar As String
Dim bijlage1 As String
Dim bijlage3 As String
Dim bijlage4 As String
Dim bijlage5 As String
Dim bijlage6 As String

Sheets("BGP").Activate
Range("k6").Activate
bijlage1 = ActiveCell.Value

Range("k8").Activate
bijlage3 = ActiveCell.Value

Range("k9").Activate
bijlage4 = ActiveCell.Value

Range("k10").Activate
bijlage5 = ActiveCell.Value

Range("k11").Activate
bijlage6 = ActiveCell.Value

Range("c11").Activate
naar = ActiveCell.Value

Set OL = GetObject(, "Outlook.Application")
bOLOpen = True
If OL Is Nothing Then
Set OL = CreateObject("Outlook.Application")
bOLOpen = False
End If

Set olMail = OL.CreateItem(0)
olMail.subject = "Bedrijsbehandelplan"
olMail.Attachments.Add bijlage1
olMail.Attachments.Add bijlage3
olMail.Attachments.Add bijlage5
olMail.To = naar
olMail.Display
olMail.body = " bij deze de ingevulde formulieren"
End Sub

Wie kan mij helpen?

Arjan

 

[Cobbe]

Geef eens aan welke regel als foutoorzaak wordt gemerkt.

Sub mailen()

 Dim naar As String
 Dim bijlage1 As String
 Dim bijlage3 As String
 Dim bijlage4 As String
 Dim bijlage5 As String
 Dim bijlage6 As String

 With Sheets("BGP")
   bijlage1 = .Range("k6")
   bijlage3 = .Range("k8")
   bijlage4 = .Range("k9")
   bijlage5 = .Range("k10")
   bijlage6 = .Range("k11")
   naar = .Range("c11")
End With
Set OL = GetObject(, "Outlook.Application")
 bOLOpen = True
 If OL Is Nothing Then
  Set OL = CreateObject("Outlook.Application")
   bOLOpen = False
  End If

 Set olMail = OL.CreateItem(0)
 olMail.Subject = "Bedrijsbehandelplan"
 olMail.Attachments.Add bijlage1
 olMail.Attachments.Add bijlage3
 olMail.Attachments.Add bijlage5
 olMail.To = naar
 olMail.Display
 olMail.body = " bij deze de ingevulde formulieren"
 End Sub

 

[aaadt]

De fout wordt op deze regel gegeven:

Set olMail = OL.CreateItem(0)

 

[Cobbe]

Volgens mij is er niets mis met die code maar wel met uw mailprogramma.
Maar ben niet zo goed op de hoogte van de verschillende aansturingen voor een of ander mailprogramma.
Er zal wel iemand reageren, hoop ik voor u.

 

[zapatr]

Probeer in plaats van

Set olMail = OL.CreateItem(0)

eens dit:

Set olmail = ol.CreateItem(olMailItem)

en voeg bovenaan toe:

Dim olmail As Outlook.MailItem

 

[aaadt]

Dit werkt!

Bedankt Mannen/Vrouwen.