Gemme/navngive skabelon

Tryk funktioner/makro/Visual Basic Editor

Vælg "Project (Skabelonens navn)"
    "Microsoft Word Objects"
    Dobbeltklik på "ThisDocument"

Paste nedenstående kode ind (erstat "CommandButton1" med det rigtige navn til din commandbutton) (mellem --- og ---:
---

Private Sub CommandButton1_Click()
       
        ActiveDocument.SaveAs FileName:=Navn.Text, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

End Sub
---

Tryk på diskette symbolet og luk Visual Basic Editor.
Hvis det skal være "ordenligt" så skal der inkluderes et check for ugyldige filnavne i navn.tekst feltet, men ovenstående viser dig den grundlæggende fremgangsmåde.

Det virker fint. Den gemmer som den skal, men hvad gør jeg for at få den vedhæftet i en mail?

Jeg har nedenstående kode:
Det er subject og Attachments.Add der skal benytte 'Navn.Text'
men jeg kan ikke lige greje det....


Dim olApp As Object, olDrafts As Object
    Dim olMail As Object
    Dim Bdy As String
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    Set olDrafts = olApp.GetNamespace("MAPI").GetDefaultFolder(16)
    With olMail
        .Subject =
        Bdy = "Tekst" & vbCrLf & vbCrLf
        Bdy = Bdy & "Tekst" & vbCrLf
        .Recipients.Add "min@mail.dk"
        .Attachments.Add
        .Move olDrafts
        End With
    Set olMail = Nothing
    Set olApp = Nothing

Nu fik jeg klaret den med emnet.
.Subject = Navn.Text

.Attachments.Add
Source:=ActiveDocument.FullName, Type:=olByValue, _
      DisplayName:=ActiveDocument.FullName

Eller

.Attachments.Add
Source:=navn.tekst, Type:=olByValue, _
      DisplayName:=navn.tekst

Respekt!