PDA

Vollständige Version anzeigen : MAPI Objecte


sodah
10.05.2004, 14:10
Hallo,

in welcher Bibliothek finde ich die MAPI-Objecte?

BodoM
10.05.2004, 14:16
MAPIVIM.DLL

sodah
10.05.2004, 14:21
Aber wo finde ich dieses File? Ist es eine Standard-Library, oder muss man sie zusätzlich von der Access CD installieren?
(ich nutze Office XP)

BodoM
10.05.2004, 14:23
Was möchtest Du denn machen?

sodah
10.05.2004, 14:26
sitze an einem E-mail Modul. Und müßte die MAPI-Objekte testen.
Ich glaube in der CDO-Library ist MAPI drin, aber die CDO finde ich in den Verweisen auch net. Man o man.....


Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Dim colAttach As Outlook.Attachments
Dim l_Attach As Outlook.Attachment
Dim oSession As MAPI.Session
Dim oMsg As MAPI.Message
Dim oAttachs As MAPI.Attachments
Dim oAttach As MAPI.Attachment
Dim colFields As MAPI.Fields
Dim oField As MAPI.Field
Dim strEntryID As String
Const conCID As String = "cid:MeineCID"
Dim olookRecipient As Outlook.Recipient
Dim strMessage As String
'...

BodoM
10.05.2004, 14:42
Outlook unterstützt MAPI und der notwendige Verweis ist Dein Outlookverweis.

Aber ich glaube, ich weiß was Du brauchst.

Public Function MailSenden(EMailAdresse As String, Betreff As String, Optional Text As String, _
Optional Dateianhang As String) As Boolean
On Error GoTo Fehler
Dim I As Byte, OL As New Outlook.Application, ns As Outlook.NameSpace, newMail As Outlook.MailItem, _
myExplorer As Outlook.Explorer
Set ns = OL.GetNamespace("MAPI")
Set myExplorer = ns.GetDefaultFolder(olFolderInbox).GetExplorer
' wenn outlook geöffnet werden soll
'myExplorer.Activate
Set newMail = OL.CreateItem(olMailItem)
With newMail
.Subject = Betreff
.Body = Text
.Attachments.Add (Dateianhang)
With .Recipients.Add(EMailAdresse)
.Type = olTo
If Not .Resolve Then
Beep
MsgBox "Ungültige oder nicht vohandene Adresse angegeben!", vbOKOnly + vbInformation, _
"!!! Problem !!!"
Exit Function
End If
End With
.Send
End With
Set OL = Nothing
Set ns = Nothing
Set newMail = Nothing
MailSenden = True
Exit Function
Fehler:
Select Case Err.Number
Case 287 ' Abbruch des mailings; keine Fehlerbehandlung
Case Else
MsgBox Err.Description
End Select
MailSenden = False
End Function

Public Function EMailAdresse(Adresse As String) As String
Dim strAdr As String
On Error Resume Next
strAdr = Adresse
If Err <> 0 Or strAdr = "" Or IsNull(strAdr) Then
Beep
Exit Function
End If
On Error GoTo 0
If InStr(LCase$(strAdr), "http://") <> 0 Then
strAdr = Mid$(strAdr, InStr(strAdr, "//") + 2)
strAdr = Left(strAdr, Len(strAdr) - 1)
ElseIf InStr(LCase$(strAdr), "mailto:") <> 0 Then
strAdr = Mid$(strAdr, InStr(strAdr, ":") + 1)
strAdr = Left(strAdr, Len(strAdr) - 1)
End If
EMailAdresse = strAdr
End Function




Gruß Bodo

sodah
10.05.2004, 14:44
Habs eben auch gefunden. Man lernt halt nie aus.

Nochmals Danke. :D