Ik heb een vraagje over visual Basic coding.
Ik heb een template met knoppen en vB code. Deze wil ik door personen laten invullen en laten versturen door middel van een knop. Het probleem dat ik nu krijg is dat de template overschreven wordt. dus de volgende persoon die deze template opent krijgt de data van de vorige persoon te zien.
Hoe kan ik dit oplossen?
De code die ik tot nu toe heb is:
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 "mailme@adres.nl"
End Sub
Kan iemand mij verder helpen??
Ik heb een template met knoppen en vB code. Deze wil ik door personen laten invullen en laten versturen door middel van een knop. Het probleem dat ik nu krijg is dat de template overschreven wordt. dus de volgende persoon die deze template opent krijgt de data van de vorige persoon te zien.
Hoe kan ik dit oplossen?
De code die ik tot nu toe heb is:
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 "mailme@adres.nl"
End Sub
Kan iemand mij verder helpen??