mentalcyclops
Grünschnabel
Hallo zusammen,
seit 2 Wochen suche ich nach einer Lösung für folgendes Problem.
Ich verschicke Mails (Listing unten) und möchte diesen eine Wichtigkeit "Hoch" erteilen, mit einem Verfallsdatum versehen (Nachricht läuft ab nach) und wenn möglich noch zur Nachverfolgung kennzeichnen.
objEmail.Priority = High
oder ähnliches geht leider nicht - es kommt immer die Meldung: "Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'priority' "
Hat jemand eine Idee oder sogar einer Übersicht der Möglichen Methoden ?
DANKE
Hier mein Quelltext:
Set objEmail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
objConf.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConf.Fields(cdoSMTPServerPort) = 25
objConf.Fields(cdoSMTPServer) = "ofgwy03"
objConf.Fields(cdoSMTPAuthenticate) = cdoBasic
objConf.Fields.Update
objEmail.Configuration = objConf
objEmail.To = Usermail
objEmail.From = Usermail
objEmail.ReplyTo = Usermail
objEmail.Subject = "Wir informieren: " & strbetreff
objEmail.HTMLBody = (strFileContent)
objEmail.Send
Set objConf = Nothing
Set objEmail = Nothing
seit 2 Wochen suche ich nach einer Lösung für folgendes Problem.
Ich verschicke Mails (Listing unten) und möchte diesen eine Wichtigkeit "Hoch" erteilen, mit einem Verfallsdatum versehen (Nachricht läuft ab nach) und wenn möglich noch zur Nachverfolgung kennzeichnen.
objEmail.Priority = High
oder ähnliches geht leider nicht - es kommt immer die Meldung: "Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'priority' "
Hat jemand eine Idee oder sogar einer Übersicht der Möglichen Methoden ?
DANKE
Hier mein Quelltext:
Set objEmail = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
objConf.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConf.Fields(cdoSMTPServerPort) = 25
objConf.Fields(cdoSMTPServer) = "ofgwy03"
objConf.Fields(cdoSMTPAuthenticate) = cdoBasic
objConf.Fields.Update
objEmail.Configuration = objConf
objEmail.To = Usermail
objEmail.From = Usermail
objEmail.ReplyTo = Usermail
objEmail.Subject = "Wir informieren: " & strbetreff
objEmail.HTMLBody = (strFileContent)
objEmail.Send
Set objConf = Nothing
Set objEmail = Nothing