| |
VB Skript (VBS)Re: neue e-mail (mit vorgegebenen parametern) öffnen - dummie asking for help... | | | Autor: Franki | Datum: 21.06.11 00:40 |
| Hallo,
dein per Sendkeys gesendeter Text landet im An: Feld weil dieses den Fokus hat. Du kannst per Sendkeys aber auch die Tabulatortaste senden zwei drei mal, dann landest du im richtigen Feld.
Aber warum nicht über Body gehen? Also erst deinen Text rein, und danach die Signatur. Oder Body auslesen (Signatur) Aus deinem Text plus Signatur den neuen Text zusammensetzten und wieder rein schreiben.
Gruß,
Frank | |
neue e-mail (mit vorgegebenen parametern) öffnen - dummie asking for help... | | | Autor: jahfarian | Datum: 15.06.11 15:32 |
| hiho
ich raffs grad einfach nicht, einen - wie im betreff ersichtlich - wohl ziehmlich simplen code zum laufen zu bekommen.
Sub Mail()
Set email = CreateObject("Outlook.Application")
Set WshShell = CreateObject("Wscript.shell")
With email.CreateItem(0)
.Recipients.Add "bla@bla.at"
.Subject = "bla bla bla bla bla"
.Body = "Sehr geehrte Damen und Herren!"
.display
End With
Set email = Nothing
wscript.quit
End Sub ich möchte aus einer *.vbs-datei einfach nur ein neue-email-fenster öffnen, in dem ein paar sachen drin stehen und ich raffs nicht.
- das wscript war nur so ne idee von mir, ohne und mit gehts nicht...
- die deklarationen sollten stimmen... denk ich halt
- er schreibt keine fehler-meldung, er tut einfach nur nix
- im (normalen) vb klappts einwandfrei, nur das script bring ich nicht zum laufen...
who knows more than me?
bitte erbarmt euch und helft einen noob
lg
jahfarian | |
Re: neue e-mail (mit vorgegebenen parametern) öffnen - dummie asking for help... | | | Autor: jahfarian | Datum: 20.06.11 08:27 |
| hi nochmal!
hab jetzt folgendes zustande gebracht:
Dim objOutl
Set ws = Wscript.CreateObject("Wscript.Shell")
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
ddate = Date
dtime = Time
dtime = Left(dtime,5)
StrText = "Sehr geehrte Damen und Herren!"
objMailItem.Display
strEmailAddr = "test@bla.org; test2@bla.com"
objMailItem.Recipients.Add strEmailAddr
objMailItem.Subject = "TestMail vom " & ddate & " um " & dtime & " Uhr"
objMailItem.GetInspector
'objMailItem.Attachments.Add "C:\datei.txt"
ws.SendKeys StrText
wscript.quit
Set objMailItem = nothing
Set objOutl = nothing er öffnet mir jetzt das e-mail-fenster, befüllt das Feld "An:" und "Betreff". ausserdem lädt er die signatur.
mit dieser hab ich aber so mein problem. ich bearbeite absichtlich nicht den befehl .body, da so die signatur weg wäre. andererseits, wenn ich mit sendkeys arbeite, schreibt er mir den text - achtung jetzt kommts - in die "An:"-Zeile rein, und nicht in das eigentliche TextFeld....
hat wer ne idee, wie ich da runter komme, damit ers ins richtige Feld schreibt?
danke im vorraus,
jah
Beitrag wurde zuletzt am 20.06.11 um 08:29:47 editiert. | |
Re: neue e-mail (mit vorgegebenen parametern) öffnen - dummie asking for help... | | | Autor: jahfarian | Datum: 21.06.11 08:16 |
| Franki schrieb:
Zitat: | | Hallo,
dein per Sendkeys gesendeter Text landet im An: Feld weil
dieses den Fokus hat. Du kannst per Sendkeys aber auch die
Tabulatortaste senden zwei drei mal, dann landest du im
richtigen Feld.
| |
wenn ich schon dabei bin, kannst du/jemand mir bitte gleich sagen wie ich einen tab mitschick?
Zitat: | |
Aber warum nicht über Body gehen? Also erst deinen Text rein, und danach die Signatur. Oder Body auslesen (Signatur) Aus deinem Text plus Signatur den neuen Text zusammensetzten und wieder rein schreiben.
| |
- das funzt so einfahc leider nicht. wenn ich den .body mitschick, ist die signatur weg.
- das ich zuerst den .body mitgeb und dann .getInspector mach geht auch nicht...
- wie ich den body auslese, weis ich leider nicht. kannst du/jemand mir das sagen?
danke im vorraus,
markus | |
Re: neue e-mail (mit vorgegebenen parametern) öffnen - dummie asking for help... | | | Autor: jahfarian | Datum: 22.06.11 15:33 |
| für den unwahrscheinlichen, aber doch im bereich des möglich liegenden, fall, dass mal jemand das selbige interesse/problem haben sollte, hier meine für mich zufriedenstellende lösung:
Dim objOutl
Set ws = Wscript.CreateObject("Wscript.Shell")
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)
Set objShell = CreateObject("WScript.Shell")
ddate = Date
dtime = Time
dtime = Left(dtime,5)
StrText = "Sehr geehrte Damen und Herren!"
StrText2 = "Im Anhang finden Sie das TestMail vom " & ddate & " um " & dtime & _
" Uhr."
StrText3 = "Sehr geehrte Damen und Herren!"
objMailItem.Display
strEmailAddr = "bla@bla.com; test@test.com; du@dude.org"
objMailItem.Recipients.Add strEmailAddr
objMailItem.Subject = "TestMail vom " & ddate & " um " & dtime & " Uhr"
objMailItem.GetInspector
'objMailItem.Send
objShell.SendKeys "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}"
ws.SendKeys StrText
objShell.SendKeys "{ENTER}" & "{ENTER}"
ws.SendKeys StrText2
objShell.SendKeys "{ENTER}"
wscript.quit
Set objMailItem = nothing
Set objOutl = nothing - rechts-klick auf desktop
- neu - Textdatei
- datei *.vbs nennen
- code einfügen und speichern (Strg + S)
- Enter drücken und fertig! | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|