access de mail yollama
Tarih
10/04/2013 13:24
Konu Sahibi
ssdestek
Yorumlar
2
Okunma
1351
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ssdestek
Aktif Üye
Kullanici Avatari
Aktif Üye
107
28/03/2013
0
13/01/2017,08:44
Sponsor Reklam
Merhaba,
Access 2013 TR kullanıyorum. frmMail adında bir formum ve tblMailingList adında bir de tablom var.
Form kod bölümüne aşağıdaki kodu yazıyorum ama sonuç alamıyorum.

Yapmak istediğim: FormMail de yazılan mail adresine bilgisayarımda sürekli açık olan Outlook'um üzerinden mail atmak istiyorum. Bu kodun doğrusu nedir (bunu Microsoft sayfasından indirdim).
----------------------------------------------------------------

Option Compare Database

Table: tblMailingList
Field Name: EmailAddress
Data Type: text

Form: frmMail
RecordSource: tblMailingList
Text box
Name: CCAddress
ControlSource: Unbound
Label Caption: CC Address
Text box
Name: Subject
ControlSource: Unbound
Label Caption: Subject
Text box
Name: MainText
ControlSource: Unbound
Label Caption: Message Body

Option Compare Database
Option Explicit
Sub SendMessages(Optional AttachmentPath)
Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim TheAddress As String

Set MyDB = CurrentDb
Set MyRS = MyDB.OpenRecordset("tblMailingList")
MyRS.MoveFirst

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

Do Until MyRS.EOF
' Create the e-mail message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
TheAddress = MyRS![EmailAddress]
With objOutlookMsg
' Add the To recipients to the e-mail message.
Set objOutlookRecip = .Recipients.Add(TheAddress)
objOutlookRecip.Type = olTo

' Add the Cc recipients to the e-mail message.
If (IsNull(Forms!frmMail!CCAddress)) Then
Else
Set objOutlookRecip = .Recipients.Add(Forms!frmMail!CCAddress)
objOutlookRecip.Type = olCC
End If

' Set the Subject, the Body, and the Importance of the e-mail message.
.Subject = Forms!frmMail!Subject
.Body = Forms!frmMail!MainText
.Importance = olImportanceHigh 'High importance

'Add the attachment to the e-mail message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Resolve the name of each Recipient.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send
End With
MyRS.MoveNext
Loop
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
SendMessages


Ek Dosyalar
.zip   Vt1mdb.zip (Dosya Boyutu: 32,68 KB / İndirme Sayısı: 16)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.838
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,21:33
formda yapılmış örneklerimizi incele güzel örnekler var
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Bugün,08:34
Sponsor Reklam
Konu takip edilmediği için çöp kutusuna taşınmıştır.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access de yapılan bir Projenin, access kurulumu olmayan başka bilgisayarda çalıştırma serhancal 1 1.007 21/11/2014, 22:22 bigwolfied
  excelde förmüle bağlı mail gönderme dilekesen 1 1.416 24/01/2014, 23:08 metbal
  access olmayan bilgisayarda access dosyası çalıştırmak accesskemal 3 2.726 30/05/2013, 17:43 accesskemal
  FTP protokolü ile mail gönderme aliyorga 0 1.112 23/07/2012, 19:45 aliyorga
  Zamanlı Mail Gönderme hyavuz 1 920 24/06/2010, 15:37 Seruz


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya