Dette tip, viser dig, hvordan du kan starte dit mail program, og forud fylde alle felterne på forhånd.
*************************************************
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 Const SW_SHOWNORMAL = 1
Public Sub SendMail(Optional Address As String, _
Optional Subject As String, Optional Body As String, _
Optional CC As String, Optional BCC As String)
Dim strCommand As String
'Build up the mail string
If Len(Subject) Then strCommand = "&Subject=" & Subject
If Len(Body) Then strCommand = strCommand & "&Body=" & Body
If Len(CC) Then strCommand = strCommand & "&CC=" & CC
If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
If Len(strCommand) Then
Mid(strCommand, 1, 1) = "?"
End If
strCommand = "mailto:" & Address & strCommand
Call ShellExecute(Me.hwnd, "open", strCommand, _
vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
*******************************************
'Kaldet til denne funktion er
Call SendMail("modtager@sss.dk", "Overskrift", _
"Dette er min besked", _
"cc@sss.dk", "bcc@sss.dk")
|