EMail aus Excel heraus versenden (API)
18.11.2004 16:09:42
{Boris}
habe folgenden Code aus dem Archiv geklaut. Er öffnet das Mailprogramm und bestückt "Empfänger", "Betreff" und "Text".
Jetzt sollte das Ganze optimalerweise noch automatisch versandt werden. Dachte es geht mit "Sendkeys" (bei Outlook: Alt + S) - funktioniert aber nicht.
Wie geht es?
Hier der Code:
Option Explicit
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 Declare Function GetActiveWindow Lib "user32.dll" () As Long
Sub EMailSenden(Optional Hauptempfänger, Optional CC, Optional bcc, Optional Betreff, Optional MailText)
Dim mail As String
mail = "mailto:"
If Not IsMissing(Hauptempfänger) Then mail = mail & Hauptempfänger
If Not IsMissing(CC) Then mail = mail & "&CC=" & CC
If Not IsMissing(bcc) Then mail = mail & "&BCC=" & bcc
If Not IsMissing(Betreff) Then mail = mail & "&subject=" & Betreff
If Not IsMissing(MailText) Then mail = mail & "&body=" & MailText
ShellExecute GetActiveWindow, "open", mail, "", "", -1
End Sub
Sub test()
Call EMailSenden("empfaenger@gmx.de", , , "Der Betreff:......", "Dies ist der Text")
Application.SendKeys ("%s") 'Das funktioniert so nicht
End Sub
Grüße Boris