Just nu i M3-nätverket
Gå till innehåll
SnowCat

mina nyhetsbrev hamnar i spamkorgen

Rekommendera Poster

SnowCat

Jag måste få lite råd om hur man gör när man sänder ut nyhetsbrev. Jag sände ut ett förrgår men fick svar från 3 stycken att de hittat mitt nyhetsbrev av en slump i deras junkmail-korg.

Hur gör man smartast för att undvika detta? Jag trodde ju aldrig att så många skulle vara intresserade av

min lilla hemsida så jag tänkte att jag kan sända nyhetsbrev en och en till de få som skulle anmäla sig. Nu har det gått några månader och jag har 210 stycken som vill ha det. Så jag brukar lägga in alla mailadresserna i en "dold kopia" och så sänder jag mailet till en av mina andra mailadresser.

Så skall man antagligen inte göra? Är det därför som de hamnar i spam-korgen?

Ge gärna tips om hur man gör, för jag är helt nybörjare med nyhetsbrev

 

Tacksam för svar/tips

Nina

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Thomas Tydal

Just det här med dold kopia är det vanliga sättet att skicka spam, så om du skickar breven ett och ett med rätt mottagare ökar chanserna att breven ska komma fram.

 

Nyhetsbrev har dock lite av spelat ut sin roll. RSS håller på att ta över. Moderna webbläsare har inbyggt stöd för det (Firefox, Opera och numera även Internet Explorer i version 7).

 

RSS funkar så att du lägger ditt nyhetsbrev i en xml-fil enligt ett visst format:

http://blogs.law.harvard.edu/tech/rss

 

Därefter skapar du en referens dit från din hemsida i <head>-delen av html-koden:

<link href="/din-rss-fil.xml" rel="alternate" title="RSS" type="application/atom+xml" />

 

De besökare som har en modern webbläsare kommer då att få upp RSS-ikonen när de går in på din webbplats, och om de klickar på den kommer de att prenumerera på ditt "nyhetsbrev", vilket innebär att de blir meddelade varje gång du ändrar i RSS-filen.

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

Jo jag kanske tittar på det där lite längre fram, men just nu - hur skall jag göra med mina nyhetsbrev? Jag kan ju inte sitta och maila en och en (210 stycken) det skulle ju ta för lång tid. Finns det inget smartare sätt?

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
hur skall jag göra med mina nyhetsbrev? Jag kan ju inte sitta och maila en och en (210 stycken)

Lägg alla mailadresser på varsin rad i ett textdokument. Skapa sedan ett vbs-script som du låter loopa igenom alla addresser och skickar dem en efter en med CDOSYS. Om du vill kan jag hjälpa dig skriva scriptet.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon

Här har du ett script som gör ett automailutskick till alla adresser i c:\mail.txt

 

1. Skapa en tom textfil och lägg in nedanstående kod i det. Ändra texterna "Ämnesrad", "Texten i ditt mail" och "snowcat@dindomän.se" till korrekta dito.

 

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile=fso.OpenTextFile("c:\mail.txt", 1)
Do While Not oFile.AtEndOfStream 
sMail=oFile.ReadLine 
SendMail sMail
Loop
oFile.Close

Sub SendMail(sTo)
Dim oMail
Set oMail=CreateObject("CDO.Message")
oMail.Subject="Ämnesrad"
oMail.From="snowcat@dindomän.se"
oMail.To=sTo
oMail.TextBody="Texten i ditt mail"
oMail.Send
End Sub

 

2. Döp om filen till SendMail.vbs

3. Dubbelklicka på filen för att skicka mailen

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

wow! tack

 

har lite frågor :-)

 

1) skall jag i textfilen skriva så här:

 

nina@historiesajten.se

nn@eeee.se

nisse@historiesajten.se

nn@eeee.se

 

eller skall det vara semikolon efter:

 

nina@historiesajten.se;

nn@eeee.se;

nisse@historiesajten.se;

nn@eeee.se;

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

 

2) oMail.TextBody="Texten i ditt mail"

skall jag där skriva hela innehållet i mitt nyhetsbrev?

 

3) måste filen ligga på min webbhotell på digikom eller kan jag

dubbelklicka på filen hemma?

 

jättetack för hjälpen!

mvh NINA

 

EDIT:

jag måste göra något fel för jag får:

rad 15

tecken 21

fe: oavslutad strängkonstant

kod: 800a0409

källa: kompileringsfel i microsoft vbcript

 

:-(

[inlägget ändrat 2006-11-22 19:28:23 av SnowCat]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
skall jag i textfilen skriva så här:

Ja, precis. Inga semikolon.

 

2) oMail.TextBody="Texten i ditt mail"

skall jag där skriva hela innehållet i mitt nyhetsbrev?

Japp, det blir alltså ett mail med enbart ren text, ingen html. Men html skall du undvika ändå då inte alla kan läsa html-formatterade mail.

Om du vill infoga radbrytningar så skriver du på följande sätt

 

oMail.TextBody="Texten i ditt mail" & vbcrlf & "Ny rad" & vbcrlf & vbcrlf & "Två rader ner"

Är det ett väldigt långt nyhetsbrev?

 

måste filen ligga på min webbhotell på digikom eller kan jag

dubbelklicka på filen hemma?

Det går bra hemifrån. Allt som krävs är tjänsten "Simple Mail Transfer Protocol" är igång (vilket jag tror den är som standard i XP Pro, inte säker. Vad gäller XP Home är jag inte säker på om detta är möjligt eller inte. Om inte mailen kommer fram så säg till).

 

Testa först med enbart din egen mailadress i mail.txt, så du kan dels se att det kommer fram och dels kontrollera att det ser ok ut.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

 

jag måste göra något fel för jag får:

rad 15

tecken 21

fe: oavslutad strängkonstant

kod: 800a0409

källa: kompileringsfel i microsoft vbcript

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
jag måste göra något fel för jag får:

rad 15

tecken 21

fe: oavslutad strängkonstant

Japp, du har glömt att avsluta din textmassa med ett citattecken någonstans. Följande skulle ex. ge samma fel

 

oMail.TextBody="Textsträng som inte avslutas med citattecken

Titta noggrannt igenom texten igen och leta efter sådana missar. Är det för mycket text kan jag göra ett tillägg i scriptet som istället läser in ditt nyhetsbrev från en textfil så slipper du sådana här problem. Jag är vaken nån timme till eller två, så säg till innan dess isåfall.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon

Äh, det gick så fort att ändra, så här får du ett nytt script istället. Lägg ditt nyhetsbrev i en textfil med namnet c:\nyhetsbrev.txt

Ändra din scriptfil till följande istället:

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)
sBody=oFile.ReadAll
oFile.Close

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)
Do While Not oFile.AtEndOfStream 
sMail=oFile.ReadLine 
SendMail sMail
Loop
oFile.Close

Sub SendMail(sTo)
Dim oMail
Set oMail=CreateObject("CDO.Message")
oMail.Subject="Ämnesrad"
oMail.From="xxx@address.se"
oMail.To=sTo
oMail.TextBody=sBody
oMail.Send
End Sub

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

nu har jag ändrat som du skrev men nu får jag

"konfigurationsvärdet sendusing är ogiltigt"

rad 20 tecken 1

 

så här ser koden ut

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

oMail.Send

End Sub

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon

Hm, det kan beror på att den inte vet vilken smtp-server den skall välja. Eftersom du kör lokalt så kan du testa att lägga till något av följande på raden innan oMail.Send

 

Se alltså till att de sista två raderna ser ut som:

oMail.SmtpServer = "127.0.0.1" 
oMail.Send

eller

oMail.SmtpServer = "localhost" 
oMail.Send

eller

oMail.SmtpServer = "NamnetPåDinDator"
oMail.Send 

 

Vilket OS och vilken version av detta har du?

[inlägget ändrat 2006-11-22 20:03:02 av Anjuna Moon]

[inlägget ändrat 2006-11-22 20:04:10 av Anjuna Moon]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

xp media center edition

jag testade med förslagen och får:

fel: Objekt krävs: SmtpMail

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
jag testade med förslagen och får:

fel: Objekt krävs: SmtpMail

Jag vet, jag skrev fel (se min ändring i förra inlägget). Det skall vara oMail och inte SmtpMail.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

jo fast nu har jag koden:

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

SmtpMail.SmtpServer = "localhost"

oMail.Send

End Sub

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
jo fast nu har jag koden:

Jo, men det är fortfarande fel på den näst näst sista raden. Nu står det SmtpMail.SmtpServer="localhost" men det skall stå oMail.SmtpServer="localhost"

 

(samma sak för de andra varianterna jag gav. oMail.SmtpServer= och inget annat)

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

det var krångligt det här ;-)

 

nu har jag koden:

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

oMail.SmtpServer = "localhost"

oMail.Send

End Sub

 

och får objektet stöder inte egenskapen eller medoten: "oMail.SmtpServer"

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon

Då försöker vi med det här då. Ändra SendMail-funktionen till:

Sub SendMail(sTo)
Dim oMail
Set oMail=CreateObject("CDO.Message")
oMail.Subject="Nyhetsbrev"
oMail.From="nyhetsbrevet@historiesajten.se"
oMail.To=sTo
oMail.TextBody=sBody
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "DinDator"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

oMail.Configuration.Fields.Update
oMail.Send
End Sub

 

Ersätt "DinDator" med "127.0.0.1" eller namnet på din dator.

 

det var krångligt det här ;-)

Du får vara tålmodig, det är inte alltid lätt när man inte vet hur datorn är konfigurerad.

[inlägget ändrat 2006-11-22 20:57:28 av Anjuna Moon]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

(hoppas du inte tröttnar på mig och mitt strul ;-)

 

nu har jag koden:

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

 

oMail.Configuration.Fields.Update

oMail.Send

End Sub

 

och får "sökvägen till hämtningskatalogen krävs men har inte angetss"

rad 25

på rad 25 står det: oMail.Send

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon

Nu vet jag inte vad det kan bero på (det är svårt att ta reda på också eftersom Windows med svensk version avger felmeddelanden som är helt hopplösa att söka på, usch fy för svenska versioner)

 

För mig har alla varianter fungerat bra, men det hjälper ju inte dig. Eventuellt skulle du kunna testa att skicka via din ISPs mailserver. Har du e-post genom dem så har du även fått information om SMTP-server, användarnamn och lösenord till ditt e-postkonto. Dessa kan du använda om du ändra funktionen till:

Sub SendMail(sTo)
Dim oMail
Set oMail=CreateObject("CDO.Message")
       oMail.Subject="Nyhetsbrev"
       oMail.From="nyhetsbrevet@historiesajten.se"
oMail.To=sTo
oMail.TextBody=sBody
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dinmail@DinISP.com"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "DITT_LÖSENORD_HÄR"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

oMail.Configuration.Fields.Update
oMail.Send
End Sub

 

I övrigt vet jag inte längre vad som strular. Jag såg att du kör asp på din webbplats. Mina script går även att använda inom asp-sidor, om webbhotellet tillåter sändning av e-post på det sättet (vilket inte är säkert)

 

[inlägget ändrat 2006-11-22 21:27:51 av Anjuna Moon]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Dwoernder

Jag fick det att funka genom att ändra enligt nedan.

 

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "min.isp.smtp"

 

min.isp.smtp är alltså server för utgånde mail hos din isp.

 

Detta kan vara bra att ha. Tack. Poäng!

 

(Har ingen aning om detta kan hjälpa. Jag kan inget om vbs, surfade lite och hittade dokument där info fanns.)

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

http://www.digikom.net/business.asp

jag har den högra spalten "pro"

 

nu börjar det närma sig i alla fall tror jag för nu får jag:

"transporten lyckades inte ansluta till servern"

 

[inlägget ändrat 2006-11-22 21:55:05 av SnowCat]

 

med koden:

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

 

oMail.Configuration.Fields.Update

oMail.Send

End Sub

[inlägget ändrat 2006-11-22 21:59:30 av SnowCat]

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
Har ingen aning om detta kan hjälpa. Jag kan inget om vbs, surfade lite och hittade dokument där info fanns.

Tack för ytterligare input och tack för poängen!

 

SnowCat, testa även min sista kod där du anger din ISPs uppgifter genom att ändra

 

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

 

till

 

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

 

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
SnowCat

nu funkar det!

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile=fso.OpenTextFile("c:\nyhetsbrev.txt", 1)

sBody=oFile.ReadAll

oFile.Close

 

Set oFile=fso.OpenTextFile("c:\mail.txt", 1)

Do While Not oFile.AtEndOfStream

sMail=oFile.ReadLine

SendMail sMail

Loop

oFile.Close

 

Sub SendMail(sTo)

Dim oMail

Set oMail=CreateObject("CDO.Message")

oMail.Subject="Nyhetsbrev"

oMail.From="nyhetsbrevet@historiesajten.se"

oMail.To=sTo

oMail.TextBody=sBody

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver"'>http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gotland.com"

oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

 

oMail.Configuration.Fields.Update

oMail.Send

End Sub

 

JÄTTETACK FÖR ALL HJÄLP :-)

jag uppskattar det verkligen skall du veta!

 

mvh Nina

(jag ändrade:

http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gotland.com")

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Anjuna Moon
JÄTTETACK FÖR ALL HJÄLP :-)

jag uppskattar det verkligen skall du veta!

Ingen orsak, bara glad att det funkade till slut (det är så frustrerande när man vet att det skall fungera och inte gör det =)

 

Tack själv för en mycket bra webbplats (såg att Herman Lindkvist skrivit i gästboken :thumbsup:)

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...