Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

Send Button im Outlook Formular

toto1 / 0 Antworten / Flachansicht Nickles

Hey lot!


Erstmals hallo zusammen! ; )  Ich habe ein Formular in Outlook erstellt. Nun zu meinem Sende Button, den Code habe ich folgendermasse erstellt:

  Sub CommandButton1_Click()

Dim outObj As Object
Dim form As Object

Set outObj = CreateObject("Outlook.Application")
Set form = outObj.MailItem

With form
.Subject = "Demande d'Intervention Helpdesk"
.To = "cc-student@rolex-bienne.ch"
End With

form.Send

Set outObj = Nothing
Set form = Nothing

End Sub
  Irgendetwas funzt da nicht... Es sollte das Formular geschickt werden beim Draufklicken.
  Ihr habt sicher ein besseres Wissen als ich, hoffe auf Hilfe
  Danke in voraus!!!
bei Antwort benachrichtigen