MAPI – Mesaj Alıp Yollama(kaynak1.v.basic)

With MAPImessages1

.Compose ‘ msgindex = -1 olur

.RecipDisplayName = "Murat Ustaoğlu"

.RecipAddress = "[email protected]"

.AddressResolveUI = True ‘ Adres için kullanıcı kontrolu

.ResolveName

.MsgSubject = "Bilgilendirme"

.MsgNoteText = "Bugünkü toplantı iptal edildi"

.AttachmentpathName = "C:\Aciklama.txt"

.Send = False ‘ Gönder

End With



Private Sub PostaGonder_Click()

MAPISession1.DownLoadMail = False

MAPISession1.LogonUI = True

MAPISession1.SignOn

DoEvents

If MAPISession1.SessionID = 0 Then

SendMAPIMail = False

MsgBox "MAPI Başlatılamadı.", vbCritical, "MAPI"

Exit Sub

End If

MAPIMessages1.SessionID = MAPISession1.SessionID

With MAPIMessages1

.MsgIndex = -1

.Compose

'.RecipIndex = 0

'.RecipType = mapToList

'.RecipDisplayName = "Mehmet Yılmaz"

.RecipAddress = “[email protected]”

' Adres_TextBox.Text

'.AddressResolveUI = False

'.ResolveName

'.RecipIndex = 1

'.RecipType = mapCcList

'.RecipAddress = CCAdresi

'.ResolveName

.MsgSubject = "Toplantı Hakkında" ' Konu_TextBox.Text

.MsgNoteText = "Toplantı ertlenmistir ....." ' Icerik_TextBox.Text

'.AttachmentPathName = "C:\Aciklama.txt"

.Send

End With

MAPISession1.SignOff

End Sub


MAPISesion

MAPI oturumu hazırlar.

MAPISesion - Özellikler





DownloadMail

Left

Index


LogonUI

NewSesion

Password


Tag

Top

UserName



Password : Kullanıcı şifresi

UserName : Kullanıcı adı


MAPISesion - Yöntemler


SingOff


SingOn
SingOn : Oturumu açar

SingOff : Oturumu kapar


MAPIMessage



Mesaj gönderme fonksiyonu. MAPISession ile oturum başlatıldıktan sonra devreye girer.


MAPIMessage - Özellikler





AddressCaption

AddressEditFieldCount

AddressLabel


AddressModifiable AddressResolveUI

FetchMsgType


FetchSorted

FetchUnreadOnly

Index


Left

Tag

Top



AddressCaption : Adres kitabı adı

AddressEditFieldCount : Adres kitabı üzerindek, kontoller

AddressModifiable : Değişiklik yapabilme izni

AddressResolveUI : Adres kitabından kontrol yapılması

AttachmentCount : Eklenti sayısı

AttachmentIndex : Eklenti numarası

AttachmentName : Tam yeri ve adı

AttachmentPosition : Mesaj da ekleneceği yer

AttachmentType : Eklenen dosyanın türü



MAPIMessage - Yöntemler





Compose

Copy


Delete

Fetch

Forward


Reply

ReplyAll

ResolveName


Save

Send

Show



Compose : Yeni mesaj düzenler

Copy : En son indexlenmiş mesajı kopyalar

Delete : Mesajı siler

Fetch : Seçili mesajlardan bir mesaj seti oluşturur

Forward : Mesajı başka kullanıcıya gönderiri

Reply : Mesajı cevaplar

Save : Mesajı kaydeder

Send : Mesajı gönderir