Dus in html kan ik dit niet aangeven?
Kan iemand mij dan verder helpen met de code voor vB?
Op dit moment heb ik de volgende code:
Sub MakeMessage(EmailAdres As String)
' Declare an outlook application and message
Dim MyOutlook As Outlook.Application
Dim MyMessage As Outlook.MailItem
Dim Continue As Integer
'On Error Resume Next
'Document must be saved. If this is not done, the user will be requested to do so.
While ActiveDocument.Path = ""
Continue = MsgBox("please save document first", vbOKCancel, "Warning")
If Continue = vbOK Then
ActiveDocument.Save
Else
MsgBox "Your request is not send. Document must be saved first.", vbOKOnly
Exit Sub
End If
Wend
' Create the outlook application and message
Set MyOutlook = New Outlook.Application
MyOutlook.ActiveExplorer
Set MyMessage = MyOutlook.CreateItem(olMailItem)
' Set up a nice message
MyMessage.To = EmailAdres
MyMessage.Subject = "MACRO: CD request"
MyMessage.Body = "automatic CD request version 1.0"
MyMessage.Attachments.Add ActiveDocument.FullName, olByValue, , "CD Request"
' send the bloody sucker
MyMessage.Send
MsgBox "Your request has been send to " & EmailAdres
End Sub
Private Sub CommandButton1_Click()
Me.MakeMessage "e-mail@.adres.nl"
End Sub