Emails versenden aus Just Basic?
lima-city → Forum → Programmiersprachen → Basic
adresse
all
argument
betreff
code
datum
einloggen
email
http
internet
message
nachricht
output
run
schema
see
server
set
string
test
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Also ich kenne mit zwar mit Just Basic nicht aus, da ich nur VB.NET programmiere, aber grundsätzlich sollte das erstmal möglich sein. Da du dich bei den meisten Providern erst noch über SMTP einloggen musst, ist hier die CDOSYS-Komponenten zu empfehlen:
http://www.aspheute.com/artikel/20000919.htm
Oder nochmal ganz speziell für Just Basic googlen:
http://www.google.de/search?hl=de&q=cdosys+just+basic -
Hier hast du deinen benötigten Quelltext. Ich habe ihn im Internet gefunden, kann also nicht garantieren, dass er funktioniert. Du musst oben die Daten entsprechend ändern. Falls du den SMTP-Server von deinem Provider nicht kennst, kannst du natürlich fragen.
from$ = "me@home.com" 'deine E-Mail-Adresse sentto$ = "you@home.net" 'E-Mail-Adresse vom Empfänger subject$ = "Just Basic email test" 'Betreff body$ = "Did it work?" 'Inhalt der Nachricht server$ = "smtp.yourISP.net" 'SMTP-Server von deinem ISP open "email-test.vbs" for output as #1 'Ein Datei mit einem entsprechenden VBScript wird erstellt print #1, "Set objArgs = WScript.Arguments" print #1, "from = objArgs(0)" print #1, "sentto = objArgs(1)" print #1, "subject = objArgs(2)" print #1, "body = objArgs(3)" print #1, "server = objArgs(4)" print #1, "Set objEmail = CreateObject("; chr$(34);"CDO.Message"; chr$(34);")" print #1, "objEmail.From = from" print #1, "objEmail.To = sentto" print #1, "objEmail.Subject = subject" print #1, "objEmail.Textbody = body" print #1, "objEmail.Configuration.Fields.Item _" print #1, "("; chr$(34);"http://schemas.microsoft.com/cdo/configuration/sendusing"; chr$(34);") = 2" print #1, "objEmail.Configuration.Fields.Item _" print #1, "("; chr$(34);"http://schemas.microsoft.com/cdo/configuration/smtpserver"; chr$(34);") = _" print #1, "server" print #1, "objEmail.Configuration.Fields.Item _" print #1, "("; chr$(34);"http://schemas.microsoft.com/cdo/configuration/smtpserverport"; chr$(34);") = 25" print #1, "objEmail.Configuration.Fields.Update" print #1, "objEmail.Send" print #1, "Wscript.echo "; chr$(34);"mail sent"; chr$(34);"" close #1 subject$ = chr$(34)+subject$+chr$(34) 'this adds quotes around the string of words body$ = chr$(34)+body$+chr$(34) 'in the subject and the body all$ = from$+chr$(32)+sentto$+chr$(32)+subject$... print all$ 'this is just to see the finished string while testing run "cscript.exe email-test.vbs "; all$, hide -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
