Toon posts:

Visual Basic for applications

Pagina: 1
Acties:

Verwijderd

Topicstarter
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??:?

  • Gerco
  • Registratie: Mei 2000
  • Laatst online: 14-09 17:42

Gerco

Professional Newbie

Je savet het document, nogal logisch dat de volgende dan de data ta zien krijgt.

2 oplossingen:
• Save het document nog een keer als je klaar bent en wis de data eerst uit de velden.
• Save het als een tijdelijke file, doe ermee wat je wilt doen en delete de tijdelijke file.

- "Als ik zou willen dat je het begreep, legde ik het wel beter uit!" | All number systems are base 10!


  • Lister
  • Registratie: September 2001
  • Laatst online: 15-02-2022
Ik denk dat je de templates dan niet helemaal goed gebruikt.
Normaal gesproken maak je met Word een .dot-file aan en die gebruik je als template.
Als je dan dubbelklikt op de dot-file maakt Word er bij het openen automatisch een nieuwe doc-file van die een gebruiker dan invult en daarna savet.
Een andere gebruiker moet weer op de dot-file dubbelklikken om zijn eigen document aan te maken.