trenger hjelp med script som sender email!

[ticsyboy]

hei!

 

Jeg trenger hjelp med et script som jeg kan sende alle mailene jeg har i innboksen, til alle kontakte(ne) jeg har.

(grunnen er fordi jeg har nyhetsbrev jeg sender ut 1 gang i uka)

Jeg er usikker på hvilket språk som er best å bruke. (helst batch vist mulig)

 

MVH :Nicolas

[GeirGrusom]

Batch kan ikke brukes.

Du må programmere en email klient til å gjøre det; f.eks. kan du bruke VBA i Outlook.

[ticsyboy]

Batch kan ikke brukes.

Du må programmere en email klient til å gjøre det; f.eks. kan du bruke VBA i Outlook.

 

noen som har en kode?

har aldri gjort det før

Endret 20. februar 2008 av ticsyboy

[backup]

Det lar seg gjøre med et vbs-script der man bruker CDO-komponenten som mellom annet kommer med winXP. Hvordan man får tak i mail-adressene i kontaktlista kommer mellom annet an på hvilket mail-program man bruker til vanlig. Bruker man for eksempel OE kan man jo først kopiere OE's kontaktilste over i en txt-fil (gjort på 10 sekunder når man først kan det) som så er input til vbs-scriptet for bulk mail.

Nedenfor er et vbs-script som sender samme mailen til deg selv 5 ganger. Bare bytt ut [email protected] med din egen mailadresse og bytt ut smtp.online.no med den smtp-server du selv bruker. I scriptet er det så gitt kommentarer for hvordan man lett kan få det til å sende samme mail til dem man har i kontaktlista, men selvfølgelig, peiling på vbs kreves og litt bør man gjøre selv, mener nu jeg da... hihi.

 

Set x = CreateObject("CDO.Message")
smtpServer="smtp.online.no" 'sett her inn den smtp-server du bruker
z = "[email protected]" 'sett her inn din email-adresse
For i = 1 To 5 'her settes inn Do While AtEndOfStream <> True for å gå gjennom hele kontakt-txt-fila
x.From =  z
'her leser du inn en mail-adresse fra kontakt-txt-fila og legger det i variabelen q
x.To = z 'her skal stå q
x.Subject = "Hei pappskalle" 
x.Textbody = "ccccccc " & i 'teksten i mailen
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
x.Configuration.Fields.Update
x.Send
Next 'her settes det loop

[ticsyboy]

Det lar seg gjøre med et vbs-script der man bruker CDO-komponenten som mellom annet kommer med winXP. Hvordan man får tak i mail-adressene i kontaktlista kommer mellom annet an på hvilket mail-program man bruker til vanlig. Bruker man for eksempel OE kan man jo først kopiere OE's kontaktilste over i en txt-fil (gjort på 10 sekunder når man først kan det) som så er input til vbs-scriptet for bulk mail.

Nedenfor er et vbs-script som sender samme mailen til deg selv 5 ganger. Bare bytt ut [email protected] med din egen mailadresse og bytt ut smtp.online.no med den smtp-server du selv bruker. I scriptet er det så gitt kommentarer for hvordan man lett kan få det til å sende samme mail til dem man har i kontaktlista, men selvfølgelig, peiling på vbs kreves og litt bør man gjøre selv, mener nu jeg da... hihi.

 

Set x = CreateObject("CDO.Message")
smtpServer="smtp.online.no" 'sett her inn den smtp-server du bruker
z = "[email protected]" 'sett her inn din email-adresse
For i = 1 To 5 'her settes inn Do While AtEndOfStream <> True for å gå gjennom hele kontakt-txt-fila
x.From =  z
'her leser du inn en mail-adresse fra kontakt-txt-fila og legger det i variabelen q
x.To = z 'her skal stå q
x.Subject = "Hei pappskalle" 
x.Textbody = "ccccccc " & i 'teksten i mailen
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
x.Configuration.Fields.Update
x.Send
Next 'her settes det loop

 

er det samme i vista?

[Manfred]

Dette hørtes ut som en utrolig jalla og tumlete måte å sende ut nyhetsbrev på...

[ticsyboy]

Det lar seg gjøre med et vbs-script der man bruker CDO-komponenten som mellom annet kommer med winXP. Hvordan man får tak i mail-adressene i kontaktlista kommer mellom annet an på hvilket mail-program man bruker til vanlig. Bruker man for eksempel OE kan man jo først kopiere OE's kontaktilste over i en txt-fil (gjort på 10 sekunder når man først kan det) som så er input til vbs-scriptet for bulk mail.

Nedenfor er et vbs-script som sender samme mailen til deg selv 5 ganger. Bare bytt ut [email protected] med din egen mailadresse og bytt ut smtp.online.no med den smtp-server du selv bruker. I scriptet er det så gitt kommentarer for hvordan man lett kan få det til å sende samme mail til dem man har i kontaktlista, men selvfølgelig, peiling på vbs kreves og litt bør man gjøre selv, mener nu jeg da... hihi.

 

Set x = CreateObject("CDO.Message")
smtpServer="smtp.online.no" 'sett her inn den smtp-server du bruker
z = "[email protected]" 'sett her inn din email-adresse
For i = 1 To 5 'her settes inn Do While AtEndOfStream <> True for å gå gjennom hele kontakt-txt-fila
x.From =  z
'her leser du inn en mail-adresse fra kontakt-txt-fila og legger det i variabelen q
x.To = z 'her skal stå q
x.Subject = "Hei pappskalle" 
x.Textbody = "ccccccc " & i 'teksten i mailen
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
x.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
x.Configuration.Fields.Update
x.Send
Next 'her settes det loop

 

er det samme i vista?

 

hvordan kan jeg få slik at den finner automatisk den email adressen å smtp serveren jeg bruker på outlook?

[Manfred]

Hva med å bruke/lage et LITT bedre system enn dette? Jeg vil si alt annet er bedre egnet enn dette.

[ticsyboy]

Hva med å bruke/lage et LITT bedre system enn dette? Jeg vil si alt annet er bedre egnet enn dette.

 

jeg vil ha dette.

[Manfred]

Du kan få laget et bedre system på kortere tid. Men for all del; Det er idiotisk å høre på noen andre. Du vet jo selvfølgelig alltid best selv.

[backup]

Du finner smtp-serveren i registeret. På min pc med winXP Pro får jeg tak i den slik:

 

Set y = WScript.CreateObject("WScript.Shell")
smtpServer = y.RegRead("HKCU\Software\Microsoft\Internet Account Manager\Accounts0000001\SMTP Server")

Om dette funker også på winVista aner jeg ikke, men du kan jo prøve, det skader jo ikke, fordi RegRead leser jo bare fra registeret. Ellers kan du jo med regedit søke manuelt etter SMTP Server ...

 

Du kan også finne email-adresse i registeret. På min pc får jeg tak i den slik:

 

z =y.RegRead("HKCU\Software\Microsoft\Internet Account Manager\Accounts0000001\SMTP Email Address")

Har du flere problemer med scriptet, så bare kom igjen her. Lykke til!

[GeirGrusom]

Dette gjelder vel bare hvis man bruker Outlook?

[backup]

Jeg bruker Outlook Express. Om det gjelder generelt, det aner jeg ikke, men det er vel bare å sjekke registeret...

Endret 27. februar 2008 av backup