Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mit VBS E-Mail senden(ohne Outlook)

Mitglied: cor35vet

cor35vet (Level 1) - Jetzt verbinden

10.02.2009, aktualisiert 11.02.2009, 22314 Aufrufe, 7 Kommentare

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:
01.
Option Explicit 
02.
Dim from,receiver,subject,body 
03.
Dim oCDO 
04.
 
05.
from = InputBox("Bitte geben sie den Sender der E-Mail an!","E-Mail Client by BotoX","Sender") 
06.
receiver = InputBox("Bitte geben sie den Empfänger der E-Mail an!","E-Mail Client by BotoX","Empfänger") 
07.
subject = InputBox("Bitte geben sie den Betreff der E-Mail an!","E-Mail Client by BotoX","Betreff") 
08.
body = InputBox("Bitte geben sie den Text der E-Mail an!","E-Mail Client by BotoX","Text") 
09.
WScript.Echo "Nachricht erstellen" 
10.
Set oCDO = Wscript.CreateObject("CDO.Message") 
11.
 
12.
With oCDO ' Baue Nachricht zusammen 
13.
 .From = from ' Sender 
14.
 .To = receiver ' Empfänger 
15.
 .Subject = subject ' Betreff 
16.
 .TextBody = body 
17.
 
18.
 WScript.Echo "Nachricht erstellt" 
19.
 .Send 'Hier kommt immer die fehler Meldung! 
20.
End With 
21.
 
22.
WScript.Echo "Nachricht verschickt"
Also leider kommt immer die Fehlermeldung:
cf79d2acc18d22a4116dc0fd5b2ddb37-unbenannt - Klicke auf das Bild, um es zu vergrößern


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)
Mitglied: kruder77
15.02.2009 um 20:47 Uhr
Fehlercode: 80040220 -> http://support.microsoft.com/kb/963168/de

gruß
kruder
Bitte warten ..
Mitglied: cor35vet
16.02.2009 um 00:48 Uhr
Danke es hat mir mehr oder weniger geholfen obwohl ich jetzt weiß ,dass ich einen Server brauch deshalb das weniger.
Vielleicht gibt es ja eine andere Methode eine E-Mail über VBS zu senden.
Bitte warten ..
Mitglied: kruder77
16.02.2009 um 01:35 Uhr
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
Bitte warten ..
Mitglied: cor35vet
16.02.2009 um 09:32 Uhr
Nur das Problem is ich wollte eigentlich zu jeder mailadresse etwas schicken können und das kann ich aber auch über telnet wie zb.
01.
telnet mx0.gmx.net 25
Bitte warten ..
Mitglied: kruder77
16.02.2009 um 12:04 Uhr
Na Du kannst ja zu jeder Mailadresse etwas versenden, das SMTP ist ja für die Absender-Adresse... Die Mailadresse an die es gesendet wird kannste ja genau wie eigentliche Mail und die Betreffzeile als String übergeben...
Bitte warten ..
Mitglied: n4426
16.02.2009 um 16:41 Uhr
Hi,

so ein Script, könnte dann für SMTP z.B. so aussehen.

01.
Set objMessage = CreateObject("CDO.Message")  
02.
objMessage.Subject = "Test"  
03.
objMessage.From = """Absender"" <Absender@domain.de>"  
04.
objMessage.To = "empfänger@domain.de"  
05.
objMessage.CC = ""  
06.
objMessage.BCC = ""  
07.
objMessage.TextBody = "test" 
08.
 
09.
 
10.
objMessage.Configuration.Fields.Item _ 
11.
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
12.
objMessage.Configuration.Fields.Item _ 
13.
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.domain.de" 
14.
objMessage.Configuration.Fields.Item _ 
15.
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
16.
objMessage.Configuration.Fields.Item _ 
17.
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "absender@domain.de" 
18.
objMessage.Configuration.Fields.Item _ 
19.
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Passwort" 
20.
objMessage.Configuration.Fields.Item _ 
21.
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
22.
objMessage.Configuration.Fields.Item _ 
23.
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
24.
objMessage.Configuration.Fields.Item _ 
25.
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
26.
objMessage.Configuration.Fields.Update 
27.
 
28.
objMessage.Send 
mfg
andi
Bitte warten ..
Mitglied: cor35vet
17.02.2009 um 12:01 Uhr
Danke andi,
aber leider löst das mein Problem nicht ganz.
Denn ich möchte die Email von jeder beliebigen Email adresse zu jeder beliebigen Adresse senden.
Aber es ist auch ein kleiner Vorteil denn ich bin bei GMX und wenn man da eine Email versendet kommt immer diese lästige werbung und hier nicht.

Trotzdem Danke für die Mühe andi, ich würde mich freuen wenn irgend wer vielleicht wie man von jeder beliebigen email zu jeder beliebigen email adresse senden kann oder einen server der jeden absender akzeptiert auch wenn es ihn nicht gibt.

Der Code für GMX:
01.
Set objMessage = CreateObject("CDO.Message")  
02.
objMessage.Subject = InputBox("Bitte geben sie den Betreff der E-Mail an!","E-Mail Client","Betreff") 
03.
objMessage.From = InputBox("Bitte geben sie den Sender der E-Mail an!","E-Mail Client","Sender") 
04.
objMessage.To = InputBox("Bitte geben sie den Empfänger der E-Mail an!","E-Mail Client","Empfänger") 
05.
objMessage.CC = "InputBox("Bitte geben sie den CC der E-Mail an!","E-Mail Client","CC")"  
06.
objMessage.BCC = "InputBox("Bitte geben sie den BCC der E-Mail an!","E-Mail Client","BCC")"  
07.
objMessage.TextBody = InputBox("Bitte geben sie den Text der E-Mail an!","E-Mail Client","Text") 
08.
 
09.
objMessage.Configuration.Fields.Item _ 
10.
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
11.
objMessage.Configuration.Fields.Item _ 
12.
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmx.net" 
13.
objMessage.Configuration.Fields.Item _ 
14.
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
15.
objMessage.Configuration.Fields.Item _ 
16.
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "!!! BENUTZERNAME !!!@gmx.at oder .net .biz , usw." 
17.
objMessage.Configuration.Fields.Item _ 
18.
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "!!! PASWORT !!!" 
19.
objMessage.Configuration.Fields.Item _ 
20.
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
21.
objMessage.Configuration.Fields.Item _ 
22.
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
23.
objMessage.Configuration.Fields.Item _ 
24.
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
25.
objMessage.Configuration.Fields.Update 
26.
 
27.
objMessage.Send 
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail

Outlook 2010 - E-Mail-Nachricht senden an ohne Funktion

Frage von cts-markusOutlook & Mail

Hallo! Ich habe gerade die Administration eines Windows Server 2012 R2 als Terminal Server übernommen. Dort gibt es das ...

Outlook & Mail

Thunderbird Senden an E-Mail-Empfänger

gelöst Frage von DasWombat1993Outlook & Mail3 Kommentare

Liebe Administratoren, Ich habe folgendes Problem mit Thunderbird 52.1.1 unter Windows 7 64 bit: Wenn ich auf einer Datei ...

Batch & Shell

E-Mail aus Shell-Script senden

gelöst Frage von newit1Batch & Shell3 Kommentare

Hallo zusammen, da keine meiner Recherchen im Internet den gewünschen Erfolg gebracht hat, versuche ich es noch einmal hier. ...

LAN, WAN, Wireless

Pfsense lässt E-Mail senden nicht zu

gelöst Frage von DocSnyder26LAN, WAN, Wireless7 Kommentare

Hallo Zusammen, jetzt habe ich den ganzen Tag verschiedene Firewall Regeln ausprobiert, aber ich bekomme einfach keine E-Mails versendet. ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein interessanter Beitrag dazu: Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10 Anscheinend ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs11 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)10 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...