Email function
27.09.2018 10:24:00
Christian
ich versuche mich gerade an einer Email Funktion für meine Datenbank. Die notwendigen Applications habe ich auch schon aktiviert aber jetzt bekomme ich die Fehlermeldung: Objektvariable oder With-Blockvariable nicht festgelegt.
Einen Fehler kann ich auf dem ersten Blick nicht sehen, was meint ihr dazu?
Beste Grüße
Christian
Private Sub Befehl150_Click()
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
Set OutApp = CreateObject("outlook.Application")
OutlookStarted = True
End If
ReqID = Me.ReqID.Value
Startdate = Me.Startdate.Value
StrReq = Me.StrReq.Value
Enddate = Me.Enddate.Value
Editor = Me.Editor.Value
Request = Me.Req.Value
Comment = Me.Comment.Value
With myMail
.To = "Email"
.Subject = "Refused Requests"
.Body = "Dear ControlTower," & vbCrLf & vbCrLf & _
"Please be aware that the Request " & ReqID & "was Refused"
End With
Set myMail = Nothing
Set myOutlApp = Nothing
End Sub