[API] Email

10/10/2011 - 20:56 von Heinz-Mario Frühbeis | Report spam
Hallo!

Ich versuche mit diesem Code eine Email zu versenden:

Public Function api_SendMail(sTo As String, sSubject As String, sMessage As
String)
'-- use api functions to send mail
On Error GoTo Err_Trap
Dim Rtn As Long '-- return value For api calls
Dim objMsg As MAPIMessage '-- message object
Dim objRec() As MapiRecip '-- recipient object array
Dim objFile() As MapiFile '-- file object array
Dim hMAPI As Long '-- session handle
ReDim objRec(0)
ReDim objFile(0)

objFile(0).Reserved = 0

objRec(0).Reserved = 0
objRec(0).RecipClass = 1
objRec(0).Name = sTo

objMsg.Reserved = 0
objMsg.Subject = sSubject
objMsg.RecipCount = 1
objMsg.FileCount = 0
objMsg.NoteText = sMessage

Rtn = MAPILogon(0, "MS Exchange Settings", "", MAPI_LOGON_UI, 0, hMAPI) '
= 0

Dim nVal As Long
nVal = MAPISendMail(hMAPI, 0&, objMsg, objRec, objFile, MAPI_DIALOG, 0&)

Rtn = MAPILogoff(hMAPI, 0, 0, 0) ' = 0
Err_Trap:
ErrorCatch nVal
End Function

Nur leider erhalte ich immer einen Fehler: nVal = -2147467259

Könnt ihr mir dabei weiterhelfen?

Mit Gruß
Heinz-Mario Frühbeis
 

Lesen sie die antworten

#1 Jochen Arndt
11/10/2011 - 08:55 | Warnen spam
Am 10.10.2011 20:56, schrieb Heinz-Mario Frühbeis:

Nur leider erhalte ich immer einen Fehler: nVal = -2147467259
Könnt ihr mir dabei weiterhelfen?



Nicht wirklich, da -2147467259 = 0X80004005 = E_FAIL = Unbekannter
Fehler / An undetermined error occurred

Joe

Ähnliche fragen