Acsessden outlook otomatik bilgi aktarimi

Çiğdem AKSOY · 28-03-2017, 18:04

Merhaba yeni olarak başladım. Acsessde müşteri veritabanı programı yapıyorum. Fakat müşteri bilgilerimdeki e mail adreslerini otomatik olarak outlook a eklemek istiyorum. Fakat tek tek outlook kişilere ekleyekleyebiliyorum. Bir kısa yolu var mi acaba

onur_can · 28-03-2017, 19:14

sn çiğdem aşağıdaki kodu forma ekleyin bir buton yardımıyla çağırabilirsiniz, ya da kodu direk olarak butonun click olayına atabilirsiniz.

Visual Basic
Sub MailAt()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = 'Müşterinin Mail Adresini Tablodan buraya çekin
.Subject = 'Mailin Konusunu Yazın...
.Body = 'Gövde yazısını yazın - İletmek istediğiniz Mesaj
.Attachments.Add "D:\deneme.pdf" 'Eğer dosya eklemek isterseniz buraya yolunu yazın
.Send
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

referanslardan Outlooku seçmeyi unutmayın...

Çiğdem AKSOY · 28-03-2017, 21:57

Bilgi için teşekkürler fakat toplu mail adresini alması istiyorum yaklaşık 300 400 tane müşteri var

onur_can · 28-03-2017, 22:40

.To ifadesinden sonra bir recordset ile Do loop döngüsü oluşturup mevcut müşterilerin mail adresini aralarında noktalı virgül ile ayırarak yazdırabilirsiniz.

Çiğdem AKSOY · 29-03-2017, 09:30

.display sırasında hata veriyor. Öğe silinmiş yada kaldırılmış fiyr

onur_can · 29-03-2017, 23:05

o satırı silip yeniden deneyin.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	access veri tabanından bilgi alma	ebubekir061	1	1.066	19-01-2019, 01:05 Son Mesaj: dsezgin
	SQL Server 2008 Express için Bilgi	assenucler	0	1.184	10-01-2015, 10:24 Son Mesaj: assenucler

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL