Mit VBS E-Mail senden(ohne Outlook)
Hallo erstmals.
Also ich habe folgendes Problem:
Ich möchte mit VBS ein Tool schreiben mit dem ich automatisch E-Mails senden kann ich habe bis jetzt das:
Also leider kommt immer die Fehlermeldung:
Ich hoffe ihr könnt mir helfen
PS. Ihr könnt den Code für eure zwecke benützen und weitergeben (naja falls er am schluss funktioniert)
Also ich habe folgendes Problem:
Ich möchte mit VBS ein Tool schreiben mit dem ich automatisch E-Mails senden kann ich habe bis jetzt das:
Option Explicit
Dim from,receiver,subject,body
Dim oCDO
from = InputBox("Bitte geben sie den Sender der E-Mail an!","E-Mail Client by BotoX","Sender")
receiver = InputBox("Bitte geben sie den Empfänger der E-Mail an!","E-Mail Client by BotoX","Empfänger")
subject = InputBox("Bitte geben sie den Betreff der E-Mail an!","E-Mail Client by BotoX","Betreff")
body = InputBox("Bitte geben sie den Text der E-Mail an!","E-Mail Client by BotoX","Text")
WScript.Echo "Nachricht erstellen"
Set oCDO = Wscript.CreateObject("CDO.Message")
With oCDO ' Baue Nachricht zusammen
.From = from ' Sender
.To = receiver ' Empfänger
.Subject = subject ' Betreff
.TextBody = body
WScript.Echo "Nachricht erstellt"
.Send 'Hier kommt immer die fehler Meldung!
End With
WScript.Echo "Nachricht verschickt"
Also leider kommt immer die Fehlermeldung:
Ich hoffe ihr könnt mir helfen
PS. Ihr könnt den Code für eure zwecke benützen und weitergeben (naja falls er am schluss funktioniert)
Please also mark the comments that contributed to the solution of the article
Content-Key: 108629
Url: https://administrator.de/contentid/108629
Printed on: May 15, 2024 at 03:05 o'clock
7 Comments
Latest comment
Du kannst über SMTP,POP3 bei deinen E-Mail Provider deine Email versenden/abrufen,
wenn Du keinen eigenen Server hast... und das wiederum kannste in deine Form integrieren...
Schaue Dir mal in der Hilfe das MailMessageObject an...
und die Namespaces:
Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient
gruß
kruder
wenn Du keinen eigenen Server hast... und das wiederum kannste in deine Form integrieren...
Schaue Dir mal in der Hilfe das MailMessageObject an...
und die Namespaces:
Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient
gruß
kruder
Hi,
so ein Script, könnte dann für SMTP z.B. so aussehen.
mfg
andi
so ein Script, könnte dann für SMTP z.B. so aussehen.
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test"
objMessage.From = """Absender"" <Absender@domain.de>"
objMessage.To = "empfänger@domain.de"
objMessage.CC = ""
objMessage.BCC = ""
objMessage.TextBody = "test"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.domain.de"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "absender@domain.de"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Passwort"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
mfg
andi