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, 1793 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 ...

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

Frage von MultiStorm zum Thema Exchange Server ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Outlook & Mail
Keine Antwort senden möglich, Outlook Termineinladung

Frage von killtec zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (14)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...