vba email versand und Lotus Notes
10.03.2006 09:54:33
Matthias
habe hier ein Problem. Das Makro funktioniert nur bei Outlook. Leider hat mein gegenüber, der dieses Makro benutzen soll, als Mali-Programm Lotus Notes. Kann man dieses Makro dafür anpassen? Und wie müsste es dann sein?
Vielen Dank für Eure Hilfe.
Gruß
Matthias
Sub Button_aktivieren_durch_Passwort()
Dim strPasswordchar As String
strPasswordchar = InputBox("Geben Sie das Passwort ein!")
If strPasswordchar = "1234" Then
ActiveWorkbook.SendMail "abs.abc@abc.de", "Datenerhebungsbogen"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
ElseIf MsgBox("Das Passwort war nicht korrekt. Bitte geben Sie es erneut ein!") Then
strPasswordchar = InputBox("Geben Sie das Passwort ein!")
If strPasswordchar = "1234" Then
ActiveWorkbook.SendMail "abs.abc@abc.de", "Datenerhebungsbogen"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Else
MsgBox ("Diese Eingabe war leider auch falsch.")
End If
End If
End Sub
Anzeige