Mailversand muss besser werden
07.02.2005 14:19:00
Norbert
ich habe Lotus Notes als Standard-Mail und über nachfolgende Schritte kann ich auch k u r z e Mail's versenden. Allerdings möchte ich die Empfänger der Mail etwas besser (Kopie an) koordinieren können. Ebenso wird mir nach einem kurzen Text aus MSGBOX Bemerkungen derselbe einfach abgeschnitten.
Kann mir jemand eine elegantere Lösung bieten?
Ich würde mich über weitere Anregungen sehr freuen...
M O D U L :
Option Explicit
Public 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
Public 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
C O M M A N D - B U T T O N :
Private Sub CommandButton1_Click()
Dim eMail As String, Subject As String, Body As String
Dim a As String
Dim b As Date
Dim c As Date
Dim d As String
a = InputBox("Welcher Mitarbeiter ist krank")
b = InputBox("Krank vom:")
c = InputBox("Krank bis voraussichtlich:")
d = InputBox("Bemerkungen:")
CommandButton101.BackColor = RGB(255, 255, 0)
CommandButton101.ForeColor = RGB(0, 0, 255)
CommandButton101.Caption = "Bitte warten..."
Application.StatusBar = "Notes wird geöffnet - B i t t e w a r t e n . . ."
eMail = "test1@test.com, test2@test.com, test3@test.com"
Subject = "Krankmeldung Mitarbeiter/in - " & a
Body = "Krank vom: " & b & " bis voraussichtlich: " & c & " Bemerkungen: " & d
Call Mail(eMail, Subject, Body)
CommandButton101.BackColor = RGB(0, 0, 100)
CommandButton101.ForeColor = RGB(255, 255, 0)
CommandButton101.Caption = "Krankmeldung"
Application.StatusBar = False
End Sub