fout code 462

[Eastw00d]

dit is de code:
Bij het starten van dit worksheet krijg ik de code 462: De externe servercomputer bestaat niet of is niet beschikbaar
Wat kan het probleem zijn

Private Sub Worksheet_Activate()

 Dim olApp As Object
 Dim appOutlookMsg As Object

 Sheets("Acceptgiro").Select 'zekerstellen dat code over juiste werkblad wordt gedraaid

 'loopen door kolom P
 i = 3 'rij waarop begonnen moet worden
 Do
 If Range("D" & i).Value - Now() < 7 Then '31 dagen gelijk geschaald aan 1 maand

 'versturen emails (via Outlook)
 On Error Resume Next
 Set olApp = GetObject(, "Outlook.Application")

 If Err.Number = 429 Then
 Set olApp = CreateObject("Outlook.application")
 End If

 On Error GoTo 0

 Set appOutlookMsg = olApp.CreateItem(olMailItem)

 With appOutlookMsg
 .SentOnBehalfOfName = """Huishoudboek"" <Reply@Address.com>"
 .To = "*****@gmail.com"
 .cc = "********@*******"
 .Subject = "Er moet nog een Acceptgiro Betaald Worden"
 .Body = "Het gaat om de acceptgiro van " & Range("B" & i) & " met als uiterste betaaldatum " & Range("D" & i)
  .Display
  .Send
 '.Send 'om meteen te versturen
 End With


 End If

 i = i + 1
 Loop Until IsEmpty(Range("D" & i))




 End Sub

 

[snb]

Probeer je eens te verplaatsen in een lezer van jouw post.

 

[Eastw00d]

er was een regel weggevallen met het plakken van de code

 

[snb]

Is geen enkele verbetering.

 

[Cobbe]

Bij mij loopt die code gewoon toto het einde zonder melding.

 

[RogerS]

Wilde gok. Je gebruikt Outlook.com voor je e-mail???

 

[Eastw00d]

Ik gebruik outlook express voor de mail.

Deze code is onderdeel van een werkmap. Als deze wordt geopend, opent eerst het werkblad waar deze code op staat. Vervolgens moet hij een beginblad openen. Op dit moment krijg ik de foutmelding

 

[Eastw00d]

Ik denk dat het probleem boven water is.

Op het moment dat deze macro gaat lopen, zet hij een mail klaar. Deze word echter niet meteen weggezonden. Heb ik outlook express open staan, loopt de macro wel.

 

[HSV]

Dan open je Outlook in de code.

On Error Resume Next
         Set OutlApp = GetObject(, "Outlook.Application")
     On Error GoTo 0
         If OutlApp Is Nothing Then
           Application.ActivateMicrosoftApp xlMicrosoftMail
           Set OutlApp = CreateObject("Outlook.Application")
         End If
    With OutlApp.CreateItem(0)
.SentOnBehalfOfName = """Huishoudboek"" <Reply@Address.com>"