Outlook error handling

[Jumping]

Hallo,

Ik heb een functie gebouwd die een mail verstuurd met outlook (template driven).
Nu wil het geval dat wanneer ik een schermpje open heb in Outlook (denk hierbij aan contactgegevens van een persoon), de mail niet wordt gegenereerd en ik deze dus niet kan verzenden.

Een foutmelding krijg ik echter niet, dus ik heb geen idee dat dit niet gebeurt.

Heeft iemand een idee hoe ik dit kan afvangen?
Bedankt!

 

[OctaFish]

Zonder code wordt het lastig om te kijken waar het fout gaat.

 

[Jumping]

ja .. is wel handig idd .. excuus

hier de code:

Sub SendMailTemplate(ByVal mailto As String, template As String, parms() As Variant, Optional attach As String, Optional from As String)
 
    Dim subject As String, body As String, cc As String
 
    subject = ProcessTemplate(template & "-subject", parms)
    subject = Trim(replace(subject, vbCrLf, " "))
    body = ProcessTemplate(template & "-body", parms)
    Dim x
    x = DLookup("Message", "tbl_Templates", "ID=" & QuoteString(template & "-CC"))
    If Not IsNull(x) Then
        cc = ProcessTemplate(template & "-CC", parms)
    End If
    SendMail mailto, subject, body, strCC:=cc, attach:=attach, from:=from
 
End Sub

 

[OctaFish]

Zo te zien trap je e.e.a. af vanuit Access. Ik kan er nog niet zoveel mee, want de functie ProcessTemplate is mij verder onbekend. En die doet iets met je template. Het kan dus best zijn dat de fout daarin zit.