Probleem met e-mail

• 

  Richard

  23-06-2005 09:43

  Dag,

  Ik heb een module gemaakt om bepaalde data van een formulier te e-mailen naar een persoon. Deze e-mail activeer ik dmv een knop.

  Outlook opend dan een nieuwe e-mail met mijn gewenste data (so far so good).

  Als ik nu deze e-mail cancel (sluit met het x “kruisje”) dan kan ik niet nog eens op de knop drukken om een e-mail te versturen. Ik moet dan uit Access gaan en opnieuw opstarten om een e-mail te versturen.

  Hieronder staat mijn code:

  ——-

  Function module_eindfactuur_e_mail()

  On Error GoTo module_eindfactuur_e_mail_Err

  Dim Body As String

  Dim Project As String

  Dim Bon As String

  Body = !!

  Project = !!

  Bon = !!

  DoCmd.SendObject , “”, “”, “e-mail@emal.nl”, “”, “”, “Eindfactuur ” & Project & “ ” & Bon, Body, True, “”

  module_eindfactuur_e_mail_Exit:

  Exit Function

  module_eindfactuur_e_mail_Err:

  MsgBox Error$

  Resume module_eindfactuur_e_mail_Exit

  End Function

  ———-

  Wat moet of kan ik toevoegen zodat ik niet uit Access hoef als ik de e-mail gecanceld heb.

  alvast bedankt en groetjes Richard
• 

  ERic B

  23-06-2005 20:16

  Dim Aan as String

  Dim Body As String

  Dim Onderwerp As String

  dim Cci as string

  Aan = “e-mail@emal.nl”

  Body = !!

  Onderwerp = !! & “ ” & !!

  DoCmd.SendObject acSendNoObject, , , Aan, Cci, , Onderwerp, Body
• 

  Richard

  24-06-2005 08:01

  Helaas,

  Ik heb deze veranderingen doorgevoerd maar mijn probleem blijft nog.

  Als ik de e-mail niet wil versturen en ik druk op het “x” om de email af te sluiten, kan ik daarna geen e-mail meer versturen vanuit Access voordat ik Access opnieuw heb opgestart.

  p.s. waarvoor zit “ Cci ” ertussen, moet ik daar mischien nog iets mee doen.

  mvg Richard
• 

  ERic B

  24-06-2005 21:26

  Nee is een veriabele staat voor CC in je Outlook

  Ik kan me niet voorstellen dat het niet lukt, heb je de laatste updates Outlook en Access. Er staat me bij dat er in 2000 een bug is van mbt het opstarten van html pagina's…?
• 

  Richard

  27-06-2005 07:38

  Nee helaas moet ik nog werken met outlook 98, en Access 2000.

  Wanneer alles op versie 2003 zal gaan werken is nog een vraag.
• 

  Nico den Tuinder

  27-06-2005 17:26

  Als ik me goed kan herinneren, werkt een oplossing als volgt:

  Private Sub cmdStuurMail_Click()

  On Error GoTo Err_cmdStuurMail_Click

  If Not IsNull(Me.txbPersoonEmail) Then

  DoCmd.SendObject , , , Me.txbPersoonEmail, , , , , True

  Else

  MsgBox “Er staat geen emailadres ingevuld.”, vbCritical, “Foutje”

  End If

  Err_cmdStuurMail_Click:

  If Err.Number = 2051 Then

  Resume

  End If

  End Sub

  Nl: vang de fout af, en laat Access doorlopen!

  Nico den Tuinder