Bitte ich hoffe das kommt gut an :-)
Wenn nicht schicke ich es dir gerne direct.
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
function sendMail(mailFrom,mailTo,mailSubject,mailBody,mailImportance)
dim objCDOConf
dim objFlds
const cdoAnonymous = 0
const cdoSendUsingPort = 2
const cdoSendUsingPickup = 1
set objCDOConf = CreateObject("CDO.Configuration")
set objFlds = objCDOConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";) =
cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";) =
"10.10.5.35"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontime
out") = 1
.Update
End With
dim objMsg
if mailTo <> "" Then
set objMsg = CreateObject("CDO.Message")
set objMsg.Configuration = objCDOConf
objMsg.MimeFormatted = true
objMsg.to = mailTo
objMsg.Subject = mailSubject
objMsg.From = mailFrom
objMsg.TextBody = mailBody
objMsg.Send
set objMsg = nothing
end if
function sendMail(mailFrom,mailTo,mailSubject,mailBody,mailImportance)
dim objCDOConf
const cdoAnonymous = 0
const cdoSendUsingPort = 2
set objCDOConf = CreateObject("CDO.Configuration")
dim objFlds
set objFlds = objCDOConf.Fields
objFlds("cdoSMTPAuthenticate") = cdoAnonymous
objFlds("cdoSendUsingMethod") = cdoSendUsingPort
objFlds("cdoSMTPServer") = "mail.xx.com"
dim objMsg
if mailTo <> "" Then
set objMsg = CreateObject("CDO.Message")
set objMsg.Configuration = objCDOConf
objMsg.MimeFormatted = true
objMsg.to = mailTo
objMsg.Subject = mailSubject
objMsg.From = mailFrom
objMsg.TextBody = mailBody
objMsg.Send
set objMsg = nothing
end if
end function
-----Original Message-----
From: Buchner Gerhard [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, December 11, 2001 3:39 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] AW: RE: WelcheMail Komponenten und Syntax gibt
e s?
Hi Christoph,
> Wenn du Win2k benutzt, kannst du CDOSYS verwenden, das geht
> recht einfach.
> Unter WinNT 4 gab/gibt es wohl die CDONTS, die wohl aber nicht so toll
> anzuwenden sind. Unter .NET hat man ja einen entsprechenden
> Namespace mit
> alle notwendigen Mailfunktionalit�ten, da kann man dann auf
> Fremdprodukte
> ganz verzichten. Wir haben hier schon einen .NET Webservice
> im Einsatz, mit
> dem man den Mailversand tracken kann :)
Hast Du evtl. f�r CDOSYS bzw. CDONTS ein paar Codebeispiele? Dann m��te
ich nicht nochmal das Rad erfinden :-)
Danke
Buchi
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
| knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
