Спасибо всем откликнувшимся, врезультате получил вот такой вот код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
Implements IInitDone
Public Type MapiRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type
Public Type MapiFile
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As String
End Type
Public Type MAPIMessage
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Flags As Long
RecipCount As Long
FileCount As Long
End Type
Private Declare Function MAPISendMail Lib "MAPI32.dll" Alias "BMAPISendMail" (ByVal Session&, ByVal _
UIParam&, Message As MAPIMessage, Recipient() As MapiRecip, File() As MapiFile, ByVal Flags&, ByVal _
Reserved&) As Long
Private Sub IInitDone_Done()
Set V7Object = Nothing
End Sub
Private Sub IInitDone_GetInfo(pInfo() As Variant)
pInfo( 0 ) = "2000"
End Sub
Private Sub IInitDone_Init(ByVal pConnection As Object)
Set V7Object = pConnection
End Sub
Public Function Message(ByVal RepName As String, ByVal RepAdress As String, _
ByVal PathName As String, _
ByVal Subject As String, ByVal Text As String, _
ByVal flDialog As Long) As Long
Const MAPI_DIALOG = &H8
Dim objMsg As MAPIMessage
Dim objRec() As MapiRecip
Dim objFile() As MapiFile
ReDim objRec( 1 )
ReDim objFile( 1 )
objFile( 0 ).Reserved = 0
If PathName <> "" Then
objFile( 0 ).Position = 1
objFile( 0 ).PathName = PathName
End If
objRec( 0 ).Reserved = 0
objRec( 0 ).RecipClass = 1
objRec( 0 ).Name = RepName
If RepAdress <> "" Then
objRec( 0 ).Address = "SMTP: " & RepAdress
End If
objMsg.Reserved = 0
objMsg.Subject = Subject
objMsg.RecipCount = 1
If PathName <> "" Then
objMsg.FileCount = 1
Else
objMsg.FileCount = 0
End If
objMsg.NoteText = Text
If flDialog Then
Message = MAPISendMail( 0 , 0 , objMsg, objRec, objFile, MAPI_DIALOG, 0 )
Else
Message = MAPISendMail( 0 , 0 , objMsg, objRec, objFile, 0 , 0 )
End If
End Function
Просто, дешево и сердито!
Теперь вот возник вот такой вот вопрос, если передается пустое значение RepName, то я получаю ошибку, но поидее ее не должно быть, ведь этот год делает тоже самое, что и кнопка создать новое сообщение в почтовике или на яве написано SendTo, и открывается диалоговое окно с вводом данных в письмо, так почему здесь это вызывает ошибку, я никак понять не могу!
Мож кто сталкивался и знает ответ, подскажите плиззззззз....!
