Just nu i M3-nätverket
Jump to content

CDO.NTS - global.asa


trickster scan

Recommended Posts

trickster scan

Hej! Jag behöver hjälp med att få nedanstående mail funktion att fungera, Server där den ligger

stöder inte CDONTS. Utan den ska "gå" via mail servern(10.52.100.253)

Kan jag styra detta från global.asa på något sätt så att det fungerar. Kan den duktiga människan som svara ge exempel på hur det ser ut.

Tacksam för allt!!

 

Set myCDONTSMail = CreateObject("CDONTS.NewMail")

With myCDONTSMail

.From = contaktmail

.To = recSet("Client_email")

.Subject = "Utvärdering från " & strCompany

.Importance = "1"

.MailFormat = CdoMailFormatMIME

.Body = strBody

.Send

End With

Set myCDONTSMail = Nothing

 

----------------------------------------------

mackan

Link to comment
Share on other sites

Vad jag har förstått spelar det ingen roll om Mail-servern stödjer CDO.NTS men jag pluttar in lite kod så du ser vart du kan pilla in mailservern:

	DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "här.skriver.du.din.mailserver"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous '0
Flds.Update
With iMsg
	Set .Configuration = iConf
	.To = "epost@mottagaren"
	.From = "en.befintlig@epost.adress"
	.Sender = "en.lika.befintlig@epost.adress"
	.Subject = "Nåt jätteskoj"
	.TextBody = "Om du nu tar med detta här..?"
	.Send
End With
Set iMsg = Nothing

 

:: NoiseKiller, för en tystare datormiljö ::

---

Bara pillade lite ;)

[inlägget ändrat 2002-09-26 08:57:11 av NoiseKiller]

Link to comment
Share on other sites

trickster scan

Tack för koden Jens!

 

------------------------------------------------------------

 

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "här.skriver.du.din.mailserver"

Flds(cdoSMTPServerPort) = 25

Flds(cdoSMTPAuthenticate) = cdoAnonymous '0

Flds.Update

 

With iMsg

Set .Configuration = iConf

.To = "epost@mottagaren"

.From = "en.befintlig@epost.adress"

.Sender = "en.lika.befintlig@epost.adress"

.Subject = "Nåt jätteskoj"

.TextBody = "Om du nu tar med detta här..?"

.Send

End With

 

Set iMsg = Nothing

 

-------------------------------------------------------------------------------

En Fråga bara, jag får ett felmeddelande

som pekar på raden:

 

Flds(cdoSendUsingMethod) = cdoSendUsingPort

 

Fel:

ADODB.Fields error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/adm_saveproj.asp, line 54

 

- Betyder det att jag måste ställa in vilken specifik port som

skall användas i på mailserver?

- Eller helt enkelt att funktionen inte är påslagen?

 

Problemet är att jag inte sitter på hårdvaran, Server ligger

i HongKong.

 

------------------------------------------------------------------------------

 

Tack på förhand

/ Marcus

 

Link to comment
Share on other sites

  • 3 months later...

Hehe, jag känner att jag kanske är liiiite sen med svaret. Men det här behöver du peta in i ditt lilla <head> för att det ska funka:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->

 

Kör så det ryker!

 

-NoiseKiller, för ljudlösa GHz

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...