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

Frage Entwicklung VB for Applications

GELÖST

vbs - Textpassage aus Dokument an Email übergeben

Mitglied: ShitzOvran

ShitzOvran (Level 1) - Jetzt verbinden

28.05.2009, aktualisiert 08:58 Uhr, 5548 Aufrufe, 8 Kommentare

Hallo Ihrs,
gibt es die Möglichkeit zu sagen, dass ein Textbereich von - bis an die Email übergeben werden soll

01.
Dim objOutlook As Outlook.Application 
02.
     
03.
    On Error Resume Next 
04.
    Set objOutlook = GetObject(, "Outlook.Application") 
05.
    If Err.Number <> 0 Then 
06.
        Err.Clear 
07.
        Set objOutlook = CreateObject("Outlook.Application") 
08.
    End If 
09.
     
10.
    If objOutlook Is Nothing Then 
11.
        MsgBox "Konnte keine Verbindung zu Outlook herstellen!", 16, "Problem" 
12.
        Exit Sub 
13.
    End If 
14.
     
15.
    On Error GoTo 0 
16.
     
17.
    Dim Mail As MailItem 
18.
    Set Mail = objOutlook.CreateItem(olMailItem) 
19.
    Mail.Save 
20.
     
21.
    Dim strFileName As String 
22.
    strFileName = Replace(Word.ActiveDocument, "doc", "pdf") 
23.
     
24.
    With Mail 
25.
       
26.
        .To = ""         
27.
        .Subject = "" 
28.
        .HTMLBody = "Mit freundlichen Grüßen" 
29.
 
30.
    End With 
31.
    Set Anhang = Mail.Attachments 
32.
    Anhang.Add (ActiveDocument.Path & "\Bewerbung.pdf") 
33.
    If InStr(1, ActiveDocument.Range, "Lebenslauf", vbTextCompare) > 0 Then 
34.
    Anhang.Add (ActiveDocument.Path & "\Data\Lebenslauf.pdf") 
35.
    End If 
36.
    If InStr(1, ActiveDocument.Range, "Zeugnisse", vbTextCompare) > 0 Then 
37.
    Anhang.Add (ActiveDocument.Path & "\Data\Zeugnisse.pdf") 
38.
    End If 
39.
    Mail.Display 
40.
    
wie bekomme ich jetzt den Text aus meinem Dokument in den Body (wo ich momentan noch "Mit freundlichen Grüßen stehen habe")?

kann ich irgendwie sagen Nehme den Text von "Sehr geehrter" bis "Mit freundlichen Grüßen" und schreibe den als .HTMLBody?
Mitglied: 76109
28.05.2009 um 11:01 Uhr
Hallo ShitzOvran (Thomas Mü ...)!

Erstelle in Word Deinen Email-Text und speichere es unter EMAIL.HTM ab. Lese in einen String ein und Splitte den Body. Oder so ähnlich?

Gruß Dieter
Bitte warten ..
Mitglied: ShitzOvran
28.05.2009 um 11:17 Uhr
hmm, das problem ist, dass mein Dokument auch automatisiert erstellt wird, und ich nicht, alles in dem Body der Email haben will.
Das Dokument ist ein anschreiben mit Adressbereich und unterschirft usw... und ich will nur den Test dazwischen , also das Anschreiben von "Sehr geehrter Herr XYZ" bis "Mit freundlichen Grüßen haben" wenn ich das dokument noch zusätzlich als ".htm" abspeichere und dann übergebe nimmt er nicht den inhalt, sondern schreibt in die Mail den Pfad.... wie kann ich denn sagen, dass er den inhalt des dokumentes nehmen soll?
Bitte warten ..
Mitglied: 76109
28.05.2009 um 14:53 Uhr
Hallo ShitzOvran,

hoffe, dass hilft Dir weiter:

01.
Dim Line As Object, Text As String, Body As Boolean 
02.
     
03.
'..... 
04.
 
05.
For Each Line In Word.ActiveDocument.Paragraphs 
06.
    If InStr(1, Line.Range, "sehr geehrte", vbTextCompare) > 0 Then 
07.
        Text = Line.Range:  Body = True 
08.
    ElseIf InStr(1, Line.Range, "mit freundlichen", vbTextCompare) > 0 Then 
09.
        Text = Text & Line.Range:  Exit For 
10.
    ElseIf Body = True Then 
11.
        Text = Text & Line.Range 
12.
    End If 
13.
Next 
14.
 
15.
'.... 
16.
With Mail 
17.
   .To = "" 
18.
   .Subject = "" 
19.
   .HTMLBody = Text 
20.
End With 
21.
'......
Gruß Dieter
Bitte warten ..
Mitglied: ShitzOvran
29.05.2009 um 08:48 Uhr
Ganz großen Dank....

das ist fast das was ich haben wollte... er kopiert mir den Text rüber.

Das Optimum wäre jetzt natürlich noch, wenn er die Formatierung irgendwie beibehalten könnte, also zB Absätze, die in meinem Text sind, werden dann auch als Absätze erkannt... ist das irgendwie möglich?
Bitte warten ..
Mitglied: 76109
29.05.2009 um 15:07 Uhr
Bitte warten ..
Mitglied: 76109
29.05.2009 um 17:10 Uhr
Hallo ShitzOvran!

Also, im I-Explorer wird es mit Formaten korrekt angezeigt. Bleibt aber die Frage, ob es auch in Deinem Code mit Mail funktioniert?
01.
Option Compare Text 
02.
 
03.
Dim Fso As Object, mFile As Object, mPath As String 
04.
Dim Doc As Object, Line As Object, Body As Boolean, Text As String 
05.
     
06.
Set Doc = ActiveDocument 
07.
 
08.
For Each Line In Doc.Paragraphs 
09.
    If Line.Range Like "*sehr geehrte*" Then 
10.
        Body = True 
11.
    ElseIf Line.Range Like "*mit freundlichen*" Then 
12.
        Body = False 
13.
    ElseIf Body = False Then 
14.
        Line.Range = "" 
15.
    End If 
16.
Next 
17.
     
18.
mPath = Doc.Path & "\Mail.mht" 
19.
 
20.
Doc.SaveAs FileName:=mPath, FileFormat:=wdFormatWebArchive 
21.
'Doc.Close 
22.
 
23.
Set Fso = CreateObject("Scripting.FileSystemObject") 
24.
Set mFile = Fso.OpenTextFile(mPath) 
25.
 
26.
Text = mFile.ReadAll:  mFile.Close:  Fso.DeleteFile mPath 
27.
 
28.
With Mail 
29.
   .To = "" 
30.
   .Subject = "" 
31.
   .HTMLBody = Text 
32.
End With
Gruß Dieter
Bitte warten ..
Mitglied: ShitzOvran
02.06.2009 um 11:28 Uhr
Jupp, nach längerem basteln funktioniert es jetzt auch einwandfrei. Ich hatte noch eine tabelle in meinem Text, sodass er erst fehlergemacht hat und bei der übergabe hat er mir das Format zerhauen, aber mit ein bisschen friemeln und ausprobieren hats jetzt endlich geklappt.

hier mal den auzug für den HTMLBody
01.
'* Ermitteln des HTMLBodys 
02.
 
03.
 
04.
Dim Fso As Object, mFile As Object, mPath As String 
05.
Dim Doc As Object, Lines As Object, Bodys As Boolean, Text As String 
06.
 
07.
'* Tabelle entfernen 
08.
Dim tbl As Table, trow As Row, mpty$ 
09.
mpty = "" 
10.
For Each tbl In ActiveDocument.Tables 
11.
     For Each trow In tbl.Rows 
12.
         trow.Delete 
13.
     Next trow 
14.
Next tbl 
15.
 
16.
'* Alle Buchstaben bis Makierung entfernen 
17.
Set Doc = ActiveDocument 
18.
For Each Lines In Doc.Paragraphs 
19.
    If Lines.Range Like "Sehr*" Then 
20.
        Bodys = True 
21.
    ElseIf Lines.Range Like "*Mit freundlichem Gruß*" Then 
22.
        Bodys = False 
23.
    ElseIf Bodys = False Then 
24.
        Lines.Range = Delete 
25.
    End If 
26.
Next 
27.
     
28.
mPath = ActiveDocument.Path & "\Data\TempMail.msg" 
29.
 
30.
Doc.SaveAs FileName:=mPath, FileFormat:=wdFormatFilteredHTML 
31.
 
32.
 
33.
Set Fso = CreateObject("Scripting.FileSystemObject") 
34.
Set mFile = Fso.OpenTextFile(mPath) 
35.
 
36.
Text = mFile.ReadAll 
37.
     
38.
     
39.
    With Mail 
40.
        .HTMLBody = Text 
41.
    End With 
42.
     
43.
     
44.
    Mail.Display
Bitte warten ..
Mitglied: 76109
02.06.2009 um 14:05 Uhr
Hallo ShitzOvran,

freut mich, dass es letztendlich doch noch geklappt hat

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Access 2013 - Daten an Word-Dokument übergeben und drucken
Frage von evolutionMicrosoft Office8 Kommentare

Hallo, ich habe eine Frage zu Access 2013. Ist es möglich aus Access heraus einen Druckauftrag eines Word-Dokuments anzustoßen ...

Entwicklung
Vbs - Email versenden mit pdf-Anhang?
gelöst Frage von BenJo64Entwicklung2 Kommentare

Hallo, ich verzweifele gerade an folgendem Problem: Ich versuche von einem Microsoft Windows Server 2003 aus eine pdf als ...

VB for Applications
Ausgewählten Bereich eines Excel Dokumentes per email verschicken
gelöst Frage von Edd1ngVB for Applications7 Kommentare

Sehr geehrte Damen und Herren User. Ich würde gerne einen ausgewählten Bereich einer Excel Tabelle als email verschicken. Dabei ...

Windows Netzwerk
PDF Dokumente mit 220 Seiten gehen 10 Minuten bis es zum drucker übergeben ist
gelöst Frage von rainergugusWindows Netzwerk10 Kommentare

Hallo, ich habe PDF Dokumente mit 220 Seiten. Der Balken lauft beim Drucken lange durch. 10 Minuten. Kann man ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...