Ik kom er niet uit.
ik heb een code voor het versturen van een email vanuit Excel met het bestand als bijlage.
Echter lukt het mij niet om te versturen vanuit een vast email account.
Wie kan mij helpen?
ik heb een code voor het versturen van een email vanuit Excel met het bestand als bijlage.
Echter lukt het mij niet om te versturen vanuit een vast email account.
Wie kan mij helpen?
Code:
Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim oAccount As Object
Dim MailAdres As String
Dim MailBody As String
Dim MailOnderwerp As String
Dim MailFrom As String
MailFrom = "test@mail.nl"
MailAdres = Sheets("Elektra").Range("F9")
MailOnderwerp = "Meetdata: " & Sheets("Elektra").Range("F3")
MailBody = "Geachte heer, mevrouw," & vbCrLf & _
" " & vbCrLf & _
"In de bijlage " & Sheets("Elektra").Range("F11") & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
"Met vriendelijke groet," & vbCrLf & _
" " & vbCrLf & _
"van mij " & vbCrLf & _
" " & vbCrLf & _
"E-mail: test@mail.nlu" & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
" "
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
For Each oAccount In OutApp.Session.Accounts
If oAccount.DisplayName = MailFrom Then
With OutMail
.to = MailAdres
.CC = ""
.BCC = ""
.Subject = MailOnderwerp
.Body = MailBody
.Display
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
Next
End Sub