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, 1539 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
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ä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 ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

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

Frage von Antshit zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...