Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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)

Frage Entwicklung VB for Applications

Mitglied: cor35vet

cor35vet (Level 1) - Jetzt verbinden

10.02.2009, aktualisiert 11.02.2009, 21131 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
Batch & Shell
gelöst Nach PDF suchen und aktuelle per Mail senden (15)

Frage von michi-ffm zum Thema Batch & Shell ...

Exchange Server
gelöst Exchange Server Mail senden (5)

Frage von MorrowToon zum Thema Exchange Server ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Statische Routen mit Shorewall, ISC-DHCP Server konfigurieren für Android Devices (25)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

Hardware
16-20 Port POE Switch mit VLAN (19)

Frage von thomasreischer zum Thema Hardware ...

Windows Server
Exchange HyperV Prozessorlast (18)

Frage von theoberlin zum Thema Windows Server ...