Hallo karin,
ich habe dir einmal eine Beispiel-Datei gemailt. Bei den
Seiten in der FAQ kann man ja wohl nur Bilder hochladen. Ich
hoffe, das ist ok so.
tsts, wohl nicht alle probiert 
, rapidshare macht das.
Wenn dein Makro die beiden Zeilen vor der Umwandlung in die
PDF-Datei löscht, brauchen sie aber hinterher dort nicht mehr
eingefügt werden. Außer du brauchst sie dann dort nochmal für
das Einfügen in die Email.
Nein, das makro liest sie ja ein, ab jetzt werden sie danach gelöscht.
Word ist da seltsam *find*, es trennt ein Wort am @-Zeichen. Naja, ist halt so. Ich habe den Code geändert.
Oben im Code siehst du eine If-Schleife, sie überprüft ob in der ersten zeile ein Textstring steht der ein @ beinhaltet, wenn du das nicht brauchst, lösche die komplette If-Abfrage.
… dir mal einen Kaffee reiche! Kuchen folgt!
Verführ mich nicht, komme ich erst mal auf den Geschmack vernasche ich alles was da ist Ups, ich meinte NUR den Kuchen *gg*
Und, Frau Mustermann wird sehr erstaunt sein wenn sie eine Mail von dir kriegt wo im Betreff steht „TestHuhu“ *hihi*
Sub tt()
Dim appOut As Object, appMail As Object, Wort As Range, arrWort(1) As String
Dim W As Integer
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) = Replace(ActiveDocument.Sentences(1), Chr(13), "")
ActiveDocument.Sentences(1).Delete
Next W
ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Test\kwpdftest2.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 = "TestHuhu"
.Body = arrWort(1)
.Attachments.Add "C:\Test\kwpdftest2.pdf"
.Display
'.Send
End With
End Sub
Gruß
Reinhard
)))))