Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Olika mail med CDOSYS

Postades av 2005-02-18 12:15:52 - Johannes Strömberg, i forum asp - allmänt, Tråden har 5 Kommentarer och lästs av 473 personer

Halloj. En snabbfråga.

Jag skickar i dagsläget iväg ett mail med CDOSYS via en webplats, till två olika mottagare. Nu behöver jag göra så att dessa två får innehållet i HTMLBody till sig och en tredje får TextBody till sig. Någon som vet hur man går till väga i det läget?

Så här ser det ut nu.

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "noreply@cde.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>


Svara

Sv: Olika mail med CDOSYS

Postades av 2005-02-18 12:58:39 - Johan Djupmarker

Kan du inte skicka 2 olika mail?

/Johan


Svara

Sv: Olika mail med CDOSYS

Postades av 2005-02-18 13:02:30 - Johannes Strömberg

Jag testade att köra

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

objMessage.To = "123456789@euromail.se"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]"& rs(3)
objMessage.TextBody = shortbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

Men då fick jag ett CDO.1 error


Svara

Sv:Olika mail med CDOSYS

Postades av 2005-02-18 13:07:56 - Johannes Strömberg

Äsch, nu hittade jag det felet. Jag hade glömt att ta bort en rad. och körde set ObjConfig = nothing innan mail 2. MEN nu skickar den till båda, men båda får HTMLbodyn och inte som jag ville det med en HTML och en utan.


Svara

Sv: Olika mail med CDOSYS

Postades av 2005-02-18 13:57:24 - Johan Djupmarker

Testa att skapa ett nytt "cdo.message", såhär:

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

set objMessage = server.createobject("cdo.message")
objMessage.To = "123456789@euromail.se"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]"& rs(3)
objMessage.TextBody = shortbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

/Johan


Svara

Sv:Olika mail med CDOSYS

Postades av 2005-02-18 17:04:00 - Johannes Strömberg

Man tackar man tackar.. Funkade bra.. Var tvungen att göra:

<code>
set objMessage = server.createobject("cdo.message")
Set objMessage.Configuration = objConfig
</code>

innan det andra med.


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 902
27 965
271 779
2 230
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies