VBA i Word + Outlook
Hej.Nedenstående kode kopierer aktiv dokument over i mail.
Kan nogen fortælle mig hvorfor indholdet fra tekstfelter / formularkontrolelementer i dokumentet ikke kopieres med over når filen vedhæftes en mail?
------------------
Private Sub CommandButton1_Click()
'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
End Sub