Top-Themen

Aktuelle Themen (A bis Z)

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, 1856 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
Exchange Server
Email in Exchange an 2ten Empfänger senden
gelöst Frage von MultiStormExchange Server18 Kommentare

Hallo ich habe mal eine Grundsätzliche Frage, wir haben aktuell einen Excahnge 2016 im einsatz, nun möchte mein Chef, ...

VB for Applications
Mit VBS mehrere Links aus Textdatei öffnen
gelöst Frage von Privex007VB for Applications4 Kommentare

Hallo zusammen, ich würde gerne wissen, wie ich es anstelle das ich per VBS eine separate Textdatei öffnen kann ...

E-Mail
Email senden nach längerem Idle nicht möglich
Frage von D1Ck3nE-Mail

Hallo zusammen, ich habe folgendes Problem: Wenn ich eine E-Mail schreibe und sie längere Zeit einfach nur offen habe ...

VB for Applications
VBS-Entfernen von Zeilen in einer Textdatei
Frage von Calim3roVB for Applications5 Kommentare

Hallo zusammen Ich möchte aus einer Textdatei Zeilen entfernen. Ich habe drei Dateien, in Datei "A" stehen Wörter, in ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 12 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 19 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 20 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 1 TagMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...