email per vba
bernd
ich habe nun ein wenig im forum gesucht und eine lösung gefunden, einen zelleninhalt als
email zu versenden. es öffnet sich mein windows live mail und trägt auch alles richtig ein,
aber ich muss noch auf senden klicken ( alternativ ALT + s) damit die email raus geht.
von früher kenne ich noch den befehl Application.SendKeys "{Alt}" & "S", True aber leider kommt immer eine fehlermeldung. habt ihr ne idee, wie ich den zelleinhalt von A1 an die adresse aus B1 senden kann,
ohne dass ich noch irgendetwas drücken muss?
mein betriebssystem ist win7 ultimate und ich benutze windows live mail.
vielen dank und viele grüße
bernd
hier mein code bis jetzt:
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
Private Sub Mail(sAdr As String, Optional sSub As String, _
Optional sBody As String)
Call ShellExecute(0&, "Open", "mailto:" + sAdr + _
"?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
End Sub
Sub MailVersenden()Dim sAddress As String, sSubject As String, sTxt As String
sAddress = Sheets("check").Range("B1").Value
sSubject = "test"
sTxt = Sheets("check").Range("A1").Value
Call Mail(sAddress, sSubject, sTxt)
End Sub