Automatischer Email-Versand
Lang
ich habe hier aus dem Forum die nachfolgende Funktion und Prozedur erhalten. Alles funktioniert einwandfrei. Mein Wunsch ist nun, dass zuerst der Email-Editor abgearbeitet werden muss, bevor wieder in Excel weiter gearbeitet werden kann.
Was muss ich ändern, damit kein Klick in das im Hintergrund laufende Excel möglich ist?
Funktion und Prozedur:
Private Sub Mail( _
eMail As String, _
Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Sub MailVersenden
On Error GoTo PROC_ERR
Dim rng As Range
Dim strSMail As String
Dim strSSubject As String
Dim strSBody As String
Dim intIRow As Integer
Dim intICol As Integer
Application.ScreenUpdating = False
With Sheets("MailVersand")
.Select
.Unprotect
End With
strSMail = "Muster@Adresse.de"
strSSubject = "Anforderung Musteradresse"
Set rng = Range("A1").CurrentRegion
For intICol = 1 To rng.Columns.count
For intIRow = 1 To rng.Rows.count
strSBody = strSBody & vbCrLf & rng.Cells(intIRow, intICol).Value
Next intIRow
Next intICol
strSBody = Application.WorksheetFunction.Substitute(strSBody, vbCrLf, "%0D%0A")
strSBody = Application.WorksheetFunction.Substitute(strSBody, "&", "%26")
Call Mail(strSMail, strSSubject, strSBody)
PROC_EXIT:
Sheets("MailVersand").Protect
Exit Sub
PROC_ERR:
MsgBox "Automatische Email für Anforderung Musteradresse konnte nicht erstellt werden!"
Resume PROC_EXIT
End Sub
Danke!
Gruß Klaus
Anzeige