Hallo Reinhard,
du hast mir mal so super bei einem Makro geholfen, das bewirkt, dass
die erste Zeile eines Word-Dokumentes in das Empfänger-Feld von Outlook geschrieben wird, die 2. Zeile als Anrede im Outlook-Textfeld und die anderen beiden Zeilen mitten in einem Text. Anschließend wurden diese 4 Zeilen automatisch im Word-Dokument gelöscht und der Rest des Word-Dokumentes in ein PDF-File umgewandelt und als Anlage in den Outlook-Brief gepackt.
Funktioniert auch alles super - außer, wenn der Text in der 2. Zeile (Anrede mit Namen) einen Titel hat. Dann wird der Name abgeschnitten. (D.h. aus "Sehr geehrte Frau Dr. Mustermann) wird „Sehr geehrte Frau Dr.“ - und Mustermann kommt dann im Text)
Es müsst ja in diesem Bereich vom VBA-Code sein. Könntest du mir nochmal helfen! *ganzliebdreinschau*
Es müsste doch hier etwas geändert werden, oder?
For W = 0 To 1
arrWort(W) = Trim(ActiveDocument.Sentences(1))
ActiveDocument.Sentences(1).Delete
Next W
Vielen Dank und herzliche Grüße
Karin
Hier nochmal der ganze Code (vielleicht kann ihn ja noch jemand brauchen):
Sub Reservierungsbestätigung()
’
’ Reservierungsbestätigung_Makro
’
’
Dim appOut As Object, appMail As Object, arrWort(6) As String
Dim W As Integer, Mailtext As String
If InStr(ActiveDocument.Sentences(1), „@“) = 0 Then
MsgBox „in der ersten Zeile ist kein @“
Exit Sub
End If
For W = 0 To 1
arrWort(W) = Trim(ActiveDocument.Sentences(1))
ActiveDocument.Sentences(1).Delete
Next W
For W = 2 To 2
arrWort(W) = vbLf & „vielen Dank für Ihre Anfrage vom heutigen Tag.“ _
& vbLf & vbLf & „Gerne senden wir Ihnen als PDF-Datei unsere Reservierungsbestätigung zu.“ _
& vbLf & vbLf & „Wir freuen uns, Sie am " & Replace(ActiveDocument.Sentences(1), Chr(13), „“) & " bei uns begrüßen und verwöhnen zu dürfen und wünschen Ihnen schon jetzt eine“ _
& " angenehme Anreise und einen erholsamen Aufenthalt." & _
vbLf & „Bei Fragen stehen wir Ihnen gerne jederzeit zur Verfügung.“
ActiveDocument.Sentences(1).Delete
Next W
For W = 3 To 3
arrWort(W) = vbLf & „Freundliche Grüße“ _
& vbLf & vbLf & Replace(ActiveDocument.Sentences(1), Chr(13), „“) & vbLf & „-Reservierung-“ & vbLf & „Hotel“
ActiveDocument.Sentences(1).Delete
Next W
Mailtext = Mailtext & vbLf & arrWort(W)
Next W
ActiveDocument.ExportAsFixedFormat OutputFileName:=„E:\formular\PDF\Bestaetigung Reservierung.pdf“ _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Set appOut = CreateObject(„Outlook.Application“)
Set appMail = appOut.CreateItem(0)
With appMail
.To = arrWort(0)
.CC = „“
.BCC = „“
.Subject = „Ihre Reservierungsbestätigung“
.Body = Mailtext
.Attachments.Add „E:\formular\PDF\Bestaetigung Reservierung.pdf“
.Display
'.Send
End With
End Sub
