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, 1712 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
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 ...

Exchange Server
gelöst Exchange mehrere E-Mail Adressen und Senden Als (7)

Frage von ketanest112 zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (29)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
gelöst Welches OS für Firmengeräte? (20)

Frage von MarkusVH zum Thema Windows 10 ...

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (17)

Frage von bogi1102 zum Thema Exchange Server ...