[VB6 sendmail via Outlook]Na Kerio mailserver werkt het niet

[Verwijderd]

Ik heb een applicatie die oa een mailtje stuurt met een attachment.
De code die ik hiervoor gebruik is:

code:

  Set objOutlook = CreateObject("Outlook.Application")
  Set objOutlookMsg = objOutlook.CreateItem(0)
  With objOutlookMsg
   .To = sTo
   .CC = sCC
   .Subject = sSubject
   .Body = sBody
   '.HTMLBody = sBody
   If Not IsMissing(sFilePath) And Len(sFilePath) > 0 Then .Attachments.add (sFilePath)
   If bSend Then .send 'Let´s go!
   If Not bSend Then .Display 'Show mail
  End With
  'opruimen:
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing

Dit werkte allemaal prima.

Nu zijn we onlangs over gestapt van een POP3 server naar Kerio Mailserver met IMAP.
We halen nu de mail op via de Kerio Outlook connector. Dat werkt prima.

Alleen mijn bovenstaande script werkt niet meer.
Het mailtje wordt zoals vanouds netjes gemaakt, niets mis mee dus.
Maar als ik dan het mailtje verstuur dan gebeurt er niets. Outlook gaat hangen en na een kwartier breek ik Outlook maar af.
Maak ik nu het mailtje 'handmatig' in Outlook met dezelfde tekst, zelfde geadresseerde en zelfde bijlage dan wordt het mailtje wel verstuurd.

Ik snap er niets meer van.
Het enige dat ik kan bedenken is dat we van een POP3 server naar een IMAP-server zijn overgestapt.

Heeft iemand nog ideeen waar dit aan kan liggen?
Bij Kerio kon ik niets vinden en voor Google heb ik niet de juiste zoektermen.

[Lorn]

Ik kan je helaas niet helpen met je probleem maar ik zou je wel aanraden regels 10 en 11 te herschrijven.

Visual Basic:

If bSend Then
  .Send
Else
  .Display
End If

Je variabele bSend hoeft dan maar een keer geevalueerd te worden in plaats van twee keer zoals het nou in je code gebeurd. Toegegeven, het zal geen grote performance winst opleveren maar het staat zo raar

[Verwijderd]

Iemand nog een oplossing? Ik snap het nog steeds niet.
Het heeft hoogst waarschijnlijk met vrijgeven van geheugen te maken, maar ik kom er niet uit.