VisualBasic VB-Script einem Button zuzuweisen?

[IFR|Knuf]

Hallo, ich hab folgenden VB-Code, der ein Word 2003 Dokument per eMail senden soll. Das Script funktioniert soweit. Problem siehe unten.

Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
      .To = "empfänger@server.de"
      .Subject = "Text" ' Betreff optional
      .HtmlBody ="Text" ' Body optional
      .ReadReceiptRequested = True
      .Attachments.Add aws
      .Display
End With
Set olapp = Nothing
End Sub

Wie schaffe ich es denn nun das Script einem Button zuzuweisen?

 

[DeutscheMark]

Dem Knopf gibst du einen Namen und machst entweder Doppelklick im Editiermodus auf den Knopf (dann erscheint der Code automatisch) oder schreibst im VB gleich:

Sub Buttonname_Click()
          AktivesDokumentAlsAnhang()
End Sub

MfG, DM.

 

[IFR|Knuf]

Private Sub MailEDV_Click()
          Sub AktivesDokumentAlsAnhang1()
End Sub



Sub AktivesDokumentAlsAnhang1()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
      .To = "mail@adresse.de"
      .Subject = "Personalmitteilung"
      .ReadReceiptRequested = True
      .Attachments.Add aws
      .Display
End With
Set olapp = Nothing
End Sub



---------------------------------------------------------------


Private Sub MailPW_Click()
        Sub AktivesDokumentAlsAnhang()
End Sub



Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
      .To = "mail@adresse.de"
      .Subject = "Personalmitteilung"
      .ReadReceiptRequested = True
      .Attachments.Add aws
      .Display
End With
Set olapp = Nothing
End Sub

So oder was (bei 2 Buttons)?

 

[dhufe]

Jap so bei 2 oder mehr Buttons. Ist halt Schema F ButtonName_Click().

Wobei es, wenn es 2 Funktionen sind, die mehr oder weniger das Gleiche machen, dann sollte man die Argumente die sich unterscheiden als Variable übergeben. Ansonsten kannst du natürlich auch für jeden Button ne eigene schreiben.

Private Sub MailEDV_Click()
          Sub AktivesDokumentAlsAnhang()
End Sub

---------------------------------------------------------------


Private Sub MailPW_Click()
        Sub AktivesDokumentAlsAnhang()
End Sub



Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
      .To = "mail@adresse.de"
      .Subject = "Personalmitteilung"
      .ReadReceiptRequested = True
      .Attachments.Add aws
      .Display
End With
Set olapp = Nothing
End Sub