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

Outlook VB Script

Frage Entwicklung VB for Applications

Mitglied: Nathalem

Nathalem (Level 1) - Jetzt verbinden

09.07.2013 um 15:40 Uhr, 1554 Aufrufe, 3 Kommentare

Hallo zusammen,

Ich stehe vor der Aufgabe ein Script zu schreiben das Outlook öffnet (soweit kein Problem).
Dann soll eine neue Mail geöffnet werden 2 Mailadressen sollen in das "An" Feld geschrieben werden, der Betreff soll befüllt werden und eine Datei der in einem bestimmten Pfad liegt soll angehängt werden.
Als Ergebnis soll der Mensch am PC ein Fenster mit einer nicht versendeten Mail sehen an der er evtl 1-2 Kleinigkeiten ändern kann und dann nurnoch auf senden drücken muss

Habt ihr Lösungsvorschläge für mich?
Mitglied: 76109
09.07.2013 um 16:59 Uhr
Hallo Nathalem!

Sollte (ungetestet) in etwa so gehen:
01.
sAn = "xxx@mail.de;yyy@mail.de" 
02.
sBetreff = "Mein Betreff" 
03.
sText = "Der Text" 
04.
sAnhang = "C:\Test.txt" 
05.
 
06.
With CreateObject("Outlook.Application").CreateItem(0) 
07.
    .To = sAn 
08.
    .Subject = sBetreff 
09.
    .Body = sText 
10.
    .Attachments.Add sAnhang 
11.
    .Display 
12.
End With
Ansonsten, sollte Dir das Suchfeld in der Titelzeile jede Menge Treffer liefern

Gruß Dieter
Bitte warten ..
Mitglied: Nathalem
10.07.2013 um 08:14 Uhr
Vielen Vielen Dank. Super Lösung.
Kannst du mir noch sagen wie ich eine schon vorhandene Signatur im Textbereich hinzufüge?
Bitte warten ..
Mitglied: 76109
10.07.2013, aktualisiert um 14:00 Uhr
Hallo Nathalem!

Dann versuchs mal hiermit:
01.
sAn = "xxx@mail.de;yyy@mail.de" 
02.
sBetreff = "Mein Betreff" 
03.
sText = "Der Text" 
04.
sAnhang = "C:\Test.txt" 
05.
 
06.
With CreateObject("Outlook.Application").CreateItem(0) 
07.
    .To = sAn 
08.
    .Subject = sBetreff 
09.
     With .GetInspector.WordEditor.Paragraphs   'Mit Email-Signatur 
10.
        .Add 
11.
        .First.Range.Text = sText & vbNewLine & vbNewLine 
12.
     End With 
13.
    .Attachments.Add sAnhang 
14.
    .Display 
15.
End With
Wobei ich mal davon ausgehe, dass Auto-Email-Signatur aktiviert ist

Gruß Dieter
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(1)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

Exchange Server
SBS 2011 - Outlook Web App - Kritischer Fehler im Script (4)

Frage von Antshit zum Thema Exchange Server ...

Outlook & Mail
gelöst Outlook crash bei manuell Konto anlegen (2)

Frage von bigrala zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (28)

Frage von Winuser zum Thema Hyper-V ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...