mina nyhetsbrev hamnar i spamkorgen

22 november, 2006

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

22 november, 2006

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:

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.

22 november, 2006

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?

22 november, 2006

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.

22 november, 2006

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

22 november, 2006

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]

22 november, 2006

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.

22 november, 2006

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

22 november, 2006

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.

22 november, 2006

Ä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

22 november, 2006

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

22 november, 2006

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]

22 november, 2006

xp media center edition

jag testade med förslagen och får:

fel: Objekt krävs: SmtpMail

22 november, 2006

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.

22 november, 2006

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

22 november, 2006

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)

22 november, 2006

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"

22 november, 2006

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]

22 november, 2006

(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

22 november, 2006

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]

22 november, 2006

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.)

22 november, 2006

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]

22 november, 2006

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

22 november, 2006

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")

22 november, 2006

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: )

mina nyhetsbrev hamnar i spamkorgen

Rekommendera Poster

SnowCat

Länk till kommentar

Dela på andra webbplatser

Thomas Tydal

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

Dwoernder

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

SnowCat

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

Arkiverat

Vem är online 0 Medlemmar, 0 anonym, 6 gäster (Visa hela listan)

Populära medlemmar