Mail vanuit document met als onderwerp tekst uit bladwijzer

[Marie01]

Ik heb in een rtf-document een onderwerp staan met daaromheen de bladwijzer "Onderwerp".
Hoe kan ik met een macro dit document als bijlage toevoegen aan een mail met als onderwerp de tekst uit de bladwijzer?
De mail zou verder nog een standaard tekst moeten krijgen, zoals: "Geachte heer, mevrouw, Hierbij stuur ik ......"

Ik gebruik Outlook en Word 2003

Kan iemand me hierbij helpen?

 

[leofact]

Wanneer het RFT een opgeslagen en actief Word document is, zou het als volgt moeten lukken:

Sub mail()
Dim sOnderwerp As String
Dim sNaam As String
Dim sPad As String
Dim oOutApp As Object
Dim oOutMsg As Object
    sPad = ActiveDocument.Path
        sNaam = ActiveDocument.Name
    ActiveDocument.Bookmarks("onderwerp").Select
        sOnderwerp = Selection.Text
Set oOutApp = CreateObject("Outlook.Application")
Set oOutMsg = oOutApp.CreateItem(0)
With oOutMsg
    .To = "email adres of leeg"
    .Subject = sOnderwerp
    .Body = "Geachte heer, mevrouw, Hierbij stuur ik ......"
    .Attachments.Add sPad & "\" & sNaam
    .Display
End With
Set oOutMsg = Nothing
Set oOutApp = Nothing
End Sub

 

[Marie01]

Dit werkt helemaal perfect! Enorm bedankt, en zo snel!

Zou ik nog zo vrij mogen zijn om te vragen of het mogelijk is een vaste handtekening in het bericht te zetten, genaamd "Bon".

 

[leofact]

Een handtekening voeg je toe door dit in Outlook in te stellen.

Een andere mogelijkheid is on deze an de body toetevoegen.
Ongeveer zo
Body ="bodytekst" & vblf & vblf & "bon"
vblf staat voor regeleinde.

Hopelijk kun je hier iets mee.

Mvg Leo