ich bin am verzweifeln. Ich habe eine Code zusammengebastelt der automatische E-Mails versendet wenn Werte in Excel überschritten werden.
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub sende_stoermeldung(mld As String)
Dim eMailTo As String, Subject As String, Body As String
eMailTo = "irgendwer@irgendwo.de"
Subject = "Störmeldung: " & mld & " " & Date & " " & Time 'Leerzeichen bitte _
belassen
Body = ""
Call Mail(eMailTo, Subject, Body)
End Sub
Sub Mail(eMail As String, Optional Subject As String, Optional Body As String)
'Hier nichts ändern
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Bis zum E-Mail Aufruf komm ich:
aber die email soll automatisch mittels befehl versendet werden.
Die Tastenkombination ALT+s macht dies,
aber mit dem Befehl SendKeys "%S" ist mir kein Erfolg beschieden?
Ich weiß wirklich nicht mehr weiter. Wer kann einem verzweifelten Anfänger helfen?
christian