Bitte um Hilfe
07.10.2005 08:01:48
Peter
habe folgendes Problem, bis jetzt lief alles problemlos, aber durch einen Rechnerwechsel läuft das Makro nicht mehr, hängt sich in der Zeile
Application.Dialogs(xlDialogSendMail).Show wi, B auf.
Kann jemand helfen?
Public wi, B
Private Sub CommandButton1_Click()
If Me.OptionButton1 = True Then wi = "xxx@xx.com"
If Me.OptionButton2 = True Then wi = "xxx@xx.com"
If Me.OptionButton3 = True Then wi = "xxx@xx.com"
If Me.OptionButton4 = True Then wi = "xxx@xx.com"
If Me.OptionButton5 = True Then wi = "xxx@xx.com"
'B = TextBox2.Value
B = "Hallo, bitte nennen Sie mir die Liefertermine. Danke Peter Dziallas ** Aftermarket - offene RR "
Application.Dialogs(xlDialogSendMail).Show wi, B
Unload Me
End Sub