Email function - Empfänger über var.
28.09.2018 11:35:46
Christian
dank der freundlichen Unterstützung des Forums gestern, habe ich es geschafft das meine Datenbank jetzt automatisch Emails verschickt.
Nun würde ich diese Funktion gerne erweitern und zwar so das die Email an eine beliebige Adresse verschickt werden kann in Abhängigkeit eines Textfelds.
Das Textfeld THUser beinhaltet die Email Adresse
Der Compiler bremst bei .send und die Fehlermeldung. Outlook kennt mindestens einen Namen nicht. Habt Ihr eine Idee?
Beste Grüße
Christian
Private Sub Befehl150_Click()
ReqID = Me.ReqID.Value
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
myMail.SentOnBehalfOfName = "Email"
Request = Me.Req.Value
With myMail
.To = " & Me.THUser.Value & "
.Subject = "Creation of ID"
.Body = "Dear Requestor," & vbCrLf & vbCrLf & _
"Your Request" _
& Me.ReqID.Value & " " & "has been created" & vbCrLf & vbCrLf & _
"Request description:" & " " & Me.Req.Value
.Send
End With
Set myMail = Nothing
Set myOutlApp = Nothing
End Sub