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

Lotus Notes für automatisches Senden einer Datei animieren

Frage Internet E-Mail

Mitglied: DocuSnap-Dude

DocuSnap-Dude (Level 2) - Jetzt verbinden

24.11.2012 um 17:38 Uhr, 8163 Aufrufe, 11 Kommentare

Heute mal Lotus Notes....

Hi,

wer kann mir helfen einen Agenten oder ähnliches zu bauen, welcher folgendes macht:

1) existierende Dateien (werden täglich automatisch erstellt von einem Tool) aus Pfad C:\Admin\Reports\ nehmen um...
2) diese täglich beim Start von Lotus Notes (aber bitte nur einmal an definierte Adresse mit definiertem Subject zu senden...
3) die gesendete Mail am besten so, das der User sie nicht stoppen kann..
4) die Dateien unter C:\Admin\Reports\ können gelöscht werden

Und dann am anderen Ende....

4) entweder auf dem Domino-Server oder auf einem NotesClient des Zielempfängers aus 2) mit folgendem Ablauf zu verarbeiten...
a) Dateianhang nehmen und auf einem definiertem UNC-Pfad zu speichern
b) Mail-Ablaufdatum auf 7 Tage setzen (für automatischen Cleanup)
c) das Mail kann nach dem Vorgang gleich in den Papierkorb wandern (muss also nicht im Posteingang rumliegen).


Hat da jemand eine gute Idee???

Ich hatte schon versucht mit "sendmail" oder so zu arbeiten aber ist eben ohne installiertem Outlook nicht so machbar. Wie gesagt Lotus Notes eben.
Mitglied: n4426
24.11.2012 um 20:47 Uhr
Hi,

schau dir mal Blat an, mit diesem Tool kannst du Datein Clientunabhängig verschicken. Die Mail wird einfach über SMTP an den Domino-Server übergeben und der verschickt diese dann. Muss natürlich auf dem Domino-Server freigegeben sein.

mfg
n4426
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012 um 10:11 Uhr
Zitat von n4426:
....schau dir mal Blat an, mit diesem Tool kannst du Datein Clientunabhängig verschicken. D.


Danke für den Tipp. Nur wollte ich auf dem "SendePC" nicht erst extra Tools installieren. Hatte vor per loginscript oder so zu arbeiten (also so einfach wie irgendwie möglich).

Ich hatte jetzt noch das hier gefunden:
LINK

Nur ist mir dort einiges unklar wie z.b. der Part
01.
Set Session = CreateObject("Lotus.NotesSession")
Bitte warten ..
Mitglied: n4426
25.11.2012 um 11:12 Uhr
Hi,

Blat musst du nich zwahgsläufig auf jedem Rechner installieren. Ich verwende es auch in einem Login-Script, da liegt Blat enfach auf der NETLOGON-Share des DC's und wird vom Login-Script angesprochen (so wie z.B. auf ifmember.exe).

Welche Sprache ist den dein Login-Script?

mfg
n4426
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012 um 11:23 Uhr
Hi,

leider habe ich für die Geräte, wo das laufen soll (Aussendienst-Notebooks), ken Net-Share. Von daher halt die Überlegung.

Meine Scripte sind alle VBS-basierend.

Viele Grüße Frank
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012 um 12:16 Uhr
Also jetzt habe ich mir das "BLAT" mal gezogen. Aber bisher blick ich da net so recht durch wie & was. Gibt's da ein gutes "HowTo" irgendwo??
Bitte warten ..
Mitglied: n4426
25.11.2012 um 14:04 Uhr
Hi,

bei einem VBS würde ichs hierüber machen.

01.
Set objMessage = CreateObject("CDO.Message") 
02.
objMessage.Subject = "Betreff" 
03.
objMessage.From = "Absender@firma.de 
04.
 
05.
objMessage.To = "Empfänger@firma.de" 
06.
'objMessage.CC = "Empfänger@firma.de" 
07.
'objMessage.BCC = "Empfänger@firma.de" 
08.
objMessage.TextBody = "Mail-Text" 
09.
 
10.
             
11.
 
12.
             
13.
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
14.
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Mailserver.firma.de" 
15.
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  
16.
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 
17.
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
18.
objMessage.Configuration.Fields.Update 
19.
 
20.
objMessage.Send
Schau mal hier, da lassen sich auch noch Datein anhähngen und mehr einstellungen mitgeben.

mfg
n4426
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012, aktualisiert um 15:28 Uhr
Jeah, das sieht schon mal ganz so aus wie etwas verwendbares. Muss jetzt mal testen ob von extern auch der Port25 für SMTP offen ist. mal prüfen. Supi!

Wenn du jetzt noch eine Idee hast, wie ich da eine Datei anhänge bist du mein Held der Woche ch bin nicht so ganz fit in Sachen Programmierung; bin mehr der Hardware-Heini


Update: Port 25 geht nicht von extern. Mist, sah so gut aus. Brauch doch etwas internes, was irgendwie den lotusNotes nutzt (auch weil der den eingerichteten LotusNotes-User nehmen soll)
Bitte warten ..
Mitglied: n4426
25.11.2012 um 15:51 Uhr
Update: Port 25 geht nicht von extern. Mist, sah so gut aus. Brauch doch etwas internes, was irgendwie den lotusNotes nutzt (auch weil der den eingerichteten LotusNotes-User nehmen soll)

währe ja auch eine Spam-Schleuder wenn der Prot von außen offen währe. Wie baut den Notes den Kontakt zum Domino-Server auf? (Ich tipp mal auf VPN)

Datein anhängen müsste so gehen.

01.
objMessage.AddAttachment("C:\TEMP\test.txt")
mfg
n4426
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012 um 16:11 Uhr
eben

Der Notes macht das extern mit Zertifikationen. Ich hab da wie oben beschrieben das hier entdeckt, nur hab ich keine Idee wie man das verwenden kann:

01.
' this code is published from IBM --> http://www-01.ibm.com/support/docview.wss?uid=swg21178583 
02.
 
03.
Dim Maildb As Object 
04.
Dim MailDoc As Object 
05.
Dim Body As Object 
06.
Dim Session As Object 
07.
'Start a session to notes 
08.
Set Session = CreateObject("Lotus.NotesSession") 
09.
'This line prompts for password of current ID noted in Notes.INI 
10.
Call Session.Initialize 
11.
'or use below to supply password of the current ID 
12.
'Call Session.Initialize("<password>") 
13.
'Open the mail database in notes 
14.
Set Maildb = Session.GETDATABASE("", "c:\notes\data\mail\mymail.nsf") 
15.
If Not Maildb.IsOpen = True Then 
16.
Call Maildb.Open 
17.
End If 
18.
'Create the mail document 
19.
Set MailDoc = Maildb.CREATEDOCUMENT 
20.
Call MailDoc.ReplaceItemValue("Form", "Memo") 
21.
'Set the recipient 
22.
Call MailDoc.ReplaceItemValue("SendTo", "John Doe") 
23.
'Set subject 
24.
Call MailDoc.ReplaceItemValue("Subject", "Subject Text") 
25.
'Create and set the Body content 
26.
Set Body = MailDoc.CREATERICHTEXTITEM("Body") 
27.
Call Body.APPENDTEXT("Body text here") 
28.
'Example to create an attachment (optional) 
29.
Call Body.ADDNEWLINE(2) 
30.
Call Body.EMBEDOBJECT(1454, "", "C:\filename", "Attachment") 
31.
'Example to save the message (optional) 
32.
MailDoc.SAVEMESSAGEONSEND = True 
33.
'Send the document 
34.
'Gets the mail to appear in the Sent items folder 
35.
Call MailDoc.ReplaceItemValue("PostedDate", Now()) 
36.
Call MailDoc.SEND(False) 
37.
'Clean Up 
38.
Set Maildb = Nothing 
39.
Set MailDoc = Nothing 
40.
Set Body = Nothing 
41.
Set Session = Nothing 
42.
 
Wenn ich das anpasse und starte erhalte ich einen Error "Line 1 Char 12 Expected and end of Statement ...Compilation error"
Bitte warten ..
Mitglied: n4426
25.11.2012, aktualisiert um 16:27 Uhr
Das sieht aus wie VB oder VBA aber nicht wie VBS. Du kannst mal versuchen in Zeile 3 bis 6 das "As Object" wegzulassen.

Edit:
In der Quelle steht ja, dass es ein VB6 und kein VBS-Code ist.
Bitte warten ..
Mitglied: DocuSnap-Dude
25.11.2012, aktualisiert 07.12.2012
Ich sag ja: ich bin Hardware-belastet

Schau ich morgen mal an im Büro. Mal gucken. Danke erst einmal für Deine Geduld!


Update: so, gelöst. ging in etwa mit dem Script oben. Per VBA in eine exe verpackt ging das Super. Den rest macht ein Agent: speichere Dateianhänge und lösche das Mail.
Bitte warten ..
Ähnliche Inhalte
E-Mail
Lotus Notes 8.3.5 Deinstallation
Frage von Hendrik2586E-Mail5 Kommentare

Guten Tag @ all! :) Und zwar habe ich folgendes Anliegen. ich versuche gerade auf einem HP Prodesk ein ...

Outlook & Mail
Lotus Notes Adressbuch Synchronisation
Frage von Jannis92Outlook & Mail4 Kommentare

Moin Leute, kennt jemand eine gute und aktuelle Anleitung, wie man die Synchronisation für das globale Adressbuch von Lotus ...

E-Mail
Lotus Notes Mailvorlage alternative
gelöst Frage von SteffenDE-Mail2 Kommentare

Guten Tag, die Frage ist nicht sehr eindeutig und ja es ist mir bewusst. Nun zum Problem, wir haben ...

Novell Netware
Lotus Notes 8.5.2 stellt sich auf Englisch um
Frage von windowsxpNovell Netware1 Kommentar

Hallo, wir haben ein Problem mit Lotus Notes 8.5.2 das stellt sich auf unserem Terminalserver immer auf Englisch um ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 8 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 15 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 17 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 20 StundenMicrosoft 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 ...