Hi!
Nach der Konvertierung meiner DB von 97->2000 funzt soweit alles bis auf ein
paar Kleinigkeiten wie z.B.: email öffnen und automatisch ausfüllen lässt
sich nur 1x ausführen.
Danach hat der Klick auf den Button keine Wirkung mehr. Nach einen Neustart
der DB kann ich wieder 1x die Funktion ausführen.
Email Client is Outlook2000!
Habe den Text und einige Feldnamen unten in der Prozedur mit xxx
gekennzeichnet, da stehen natürlich gültige Feldnamen bzw. Text drinnen!
Um eine Email zu erzeugen verwende folgende Prozedur:
Private Sub email_Click()
On Error GoTo email_Click_Err
Dim sendto As String, sendsubject As String, mailtext As String
sendto = „[email protected]“
sendsubject = "xxxxx: " & [xxxxx] & " / " & [xxxx]
mailtext = „xxx,“ & Chr$(10) & Chr$(10) & „xxx(“ & [xxx] & ") xx " & [xxx] &
": " & [xxx] & Chr$(10) & „xxx“ & Chr$(10) & Chr$(10) & „xx“ & Chr$(10) ‚&
xx]
DoCmd.SendObject acSendNoObject, , , sendto, , , sendsubject, mailtext,
True‘
DoCmd.GoToControl „Searchfield“
eemail_Click_Exit:
Exit Sub
eemail_Click_Err:
MsgBox „send email action was cancelled by user!“
Resume eemail_Click_Exit
End Sub
Vielleicht hat jemand eine Ahnung warum das nur 1x funktioniert?
Vielen Dank!
Gernot