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
GELÖST

VBS Email senden an mehrere Empfänger Übergabe aus Textdatei an objMessage.To möglich ?

Frage Entwicklung VB for Applications

Mitglied: buxi

buxi (Level 1) - Jetzt verbinden

24.10.2014, aktualisiert 15:06 Uhr, 1750 Aufrufe, 2 Kommentare

'Gruesst Euch mal wieder im Forum,

ich hätte da als VBS-Newbee ein kleines Problem:
Ich wüsste ganz gerne,
ob es möglich ist, in einem relativ unkomplizierten
VBS-Script ( läuft unter Win 7 )
unter
->
objMessage.To nicht immer die Email-Empfänger alle
nacheinander getrennt durch Kommas eingeben zu müssen.
Könnte das vielleicht auch durch Auslesen einer
TXT-Datei erfolgen, in der dann in einer best.
Synthax die Email-Empfänger eingetragen sind ?
Die Datei würde im gleichen Verzeichnis liegen wie das VBS-Script

Danke schon einmal für eure Ideen vorab.

Buxi

VBS-Datei ist im Prinzip nach diesem Muster aufgebaut:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test"
objMessage.From = """Absender"" <Absender@domain.de>"
objMessage.To = "empfänger@domain.de
objMessage.TextBody = "something interesting"
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver xy"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==



objMessage.Send
Mitglied: 114757
LÖSUNG 24.10.2014, aktualisiert 26.11.2014
Hallo buxi,
wenn du z.B. Die Empfänger so in die erste Zeile der Textdatei einträgst:
user1@domain.de;user2@domain.de;user3@domain.de

geht dies so
01.
Set objShell = CreateObject("WScript.Shell") 
02.
set fso = CreateObject("Scripting.Filesystemobject") 
03.
rec = fso.OpenTextFile(objShell.Currentdirectory & "\empfaenger.txt",1).ReadLine() 
04.
'... 
05.
'.. 
06.
objMessage.To = rec 
07.
'...
Man kann natürlich die Empfänger auch untereinander in die Textdatei eintragen,
user1@domain.de
user2@domain.de
user3@domain.de


in diesem Fall geht das dann so
01.
Set objShell = CreateObject("WScript.Shell") 
02.
set fso = CreateObject("Scripting.Filesystemobject") 
03.
rec = Join(Split(fso.OpenTextFile(objShell.Currentdirectory & "\empfaenger.txt",1).ReadAll(),vbNewline),";") 
04.
'... 
05.
'.. 
06.
objMessage.To = rec 
07.
'...
Den Namen der Textdatei musst du an deine Bedürfnisse anpassen...

Gruß
jodel32
Bitte warten ..
Mitglied: buxi
26.11.2014 um 21:15 Uhr
Gruess Dich Jodel32,

danke für dien wirklich einfach zu implementierenden Tipp.

Ist jetzt gelöst

Dankeschön
Buxi
Bitte warten ..
Ähnliche Inhalte
Windows 7
Email senden, wenn Rechner mehr als 30min im Ruhezustand (3)

Frage von FOrtwein zum Thema Windows 7 ...

Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

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

Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Windows 7
Windows 7 "Senden an - E-Mail-Empfänger" funktioniert nicht (3)

Frage von Falaffel zum Thema Windows 7 ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
gelöst Benutzer lässt sich nur an einem Clientcomputer anmelden (16)

Frage von Ammann zum Thema Windows Server ...

LAN, WAN, Wireless
gelöst Netzwerk in 2 Teile trennen (11)

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

Batch & Shell
gelöst Gruppenzugehörigkeit von AD Usern ermitteln - die Perfektion fehlt (11)

Frage von Stefan007 zum Thema Batch & Shell ...