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, 20640 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 
Mit freundlichen Grüßen
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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Exchange Server
gelöst Exchange Server Mail senden (5)

Frage von MorrowToon zum Thema Exchange Server ...

Batch & Shell
gelöst PowerShell, Log Datei auslesen, bei Änderungen E-Mail senden (12)

Frage von swissbull zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (22)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

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

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...