VBA i Word

Hej

Hvilket mail program er der tale om?
Prøv at vis din VBA-kode.

Hej

Jeg bruger Out-look

Koden er:

Private Sub CommandButton1_Click()

ActiveDocument.SendMail

End Sub

Har prøvet din kode. Modtagerfeltet kan godt aktiveres

Jeg ønsker at modtagerfektet automatisk udfyldes med en af mig valgt adresse.

Ok - det vil sige at det er VBA-koden til at indsætte modtager?

Ja.

Modtagerfeltet i mailen skal udfyldes via VBA-koden.

Har forsøgt på forskellige måder - men uden held indtil videre. Prøver igen..

Lidt anden version - kræver en Reference til OutLook
Sub klarTilmail()
Dim mailApp, Namespace, nyMail
Dim modtager, Emne, vedhftFiler, indhold

        modtager = "xx@xxxx.dk"
        Emne = "Test Mail"
        vedhftFiler = ActiveDocument.FullName

        Set mailApp = CreateObject("Outlook.Application")
        Set Namespace = mailApp.GetNamespace("MAPI")
        Set nyMail = mailApp.CreateItem(olMailItem)
       
Rem Modtager
        Set mailModtager = nyMail.Recipients
        mailModtager.Add modtager
       
Rem Emne
        nyMail.Subject = Emne
       
Rem Vedhft.fil - p.t. kun een fil
        If vedhftFiler <> "" Then
            Set att = nyMail.Attachments
            att.Add vedhftFiler
        End If
           
        nyMail.Display                              'visning af mail
'        nyMail.Send                                'send mailen
End Sub

Hej.
.
Det virker.

Mange tak for hjælpen.


Mvh.
Hans

Fint & selv tak..

Hej igen.
.
Kan du fortælle mig hvorfor indholdet fra tekstfelter / formularkontrolelementer ikke kopieres med over når filen vedhæftes en mail?

mvh.
Hans

Nej desværre..