Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

formdaki bilgileri ilgili kişiye eposta olarak gönderme

yturan
yturan
Access Cevaplanmış Soruları
33
14970

formdaki bilgileri ilgili kişiye eposta olarak gönderme

Çözüldü #13
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 25/03/2025,17:19
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Outlook vs. olmadan eposta'yı aşağıdaki konuda bulunan örnekle gönderebilirsiniz.

<a href="https://accesstr.net/konu-smtp-hesabiyla-e-mail-gonderme-uygulamasi.html">SMTP Hesabıyla E-mail Gönderme Uygulaması</a>

Tabii, şunu unutmamak lazım, O bilgisayarda Outlook vs. olmasa bile bir mail hesabınızın olması ve
sizde bu mail hesabıyla ilgili bilgilerin (şifre, smtp server vb...) olması gerekiyor.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #14
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 25/03/2025,17:19
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Size hem tek hem de toplu gönderim için bir örnek hazırladım.

Kodda smtp, e-mail adresiniz ve şifreniz kısımlarını sizin doldurmanız gerekiyor.
SMTP_Sunucu = "smtp.xxxx.xxx.tr"
Gonderenin_Mail_Adresi = "x@x.com"
Gonderenin_Mail_Sifresi = ""

Private Sub btn_EPOSTA_Click()
    If IsNull(Me.eposta) Then
        MsgBox "E-posta adresi yok!", vbCritical, "Hata oluştu."
    Else
        ePOSTA_Gonder
    End If
End Sub

Private Sub ePOSTA_Gonder()
On Error GoTo Hata
'---------------------------------------------------------------
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Dim objMessage As Object
Dim SMTP_Sunucu, Gonderenin_Mail_Adresi, Gonderenin_Mail_Sifresi, Gonderilecek_Mail_Adresi, strBody
'---------------------------------------------------------------
SMTP_Sunucu = "smtp.xxxx.xxx.tr"
Gonderenin_Mail_Adresi = "x@x.com"
Gonderenin_Mail_Sifresi = ""
Gonderilecek_Mail_Adresi = Me.eposta
If Gonderenin_Mail_Adresi = "" Or Gonderenin_Mail_Sifresi = "" Or Gonderilecek_Mail_Adresi = "" Then
    MsgBox "Bilgileriniz eksik olduğu için e-posta gönderilemiyor !", vbCritical, "Hata oluştu."
    Exit Sub
End If
'---------------------------------------------------------------
strBody = ""
strBody = strBody & " Sn. " & Me.adısoyadı
strBody = strBody & " Kesintiniz : " & Me.kesinti
strBody = strBody & " Maaş Tutarınız : " & Me.maas_tutar
'---------------------------------------------------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Örnek E-Posta"
objMessage.From = Gonderenin_Mail_Adresi
objMessage.To = Gonderilecek_Mail_Adresi
objMessage.HTMLBody = strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Gonderenin_Mail_Adresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Gonderenin_Mail_Sifresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_Sunucu
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
MsgBox "İlgili kişiye e-posta gönderilmiştir.", vbInformation, "İşlem tamam"
Exit Sub
'---------------------------------------------------------------
Hata:
    MsgBox "E-posta gönderimi başarısız oldu!", vbCritical, "Hata oluştu."
End Sub
Biraz Html bilginiz varsa, strBody değişkenini Html kodları ile doldurarak,
mesaj içeriğini güzelleştirebilirsiniz.

Örneğin:
strBody = ""
strBody = strBody & "<p>"
strBody = strBody & "<font face='Verdana' size='2'>"
strBody = strBody & "Sn. " & Me.Yetkili.Column(1)
strBody = strBody & "<br><br>"
strBody = strBody & "Satınalma Yetkilisi olduğunuz " & Me.TALEP_EDENIN_ADI & " malzeme satınalma talebinde bulunmuştur."
strBody = strBody & "<br><br>"
strBody = strBody & "Concorde Menü'de 'MALZEME TALEPLERİ' programındaki 'Yetkili Onayı' formunda"
strBody = strBody & "<br>"
strBody = strBody & "  malzeme talebine onay verebilir veya talebi iptal edebilirsiniz."
strBody = strBody & "<br><br><br>"
strBody = strBody & "Talep Edilen Malzemeler: (No:" & Me.TALEP_NO & ")"
strBody = strBody & "</font>"
strBody = strBody & "</p>"
strBody = strBody & "<table border='1' cellspacing='0' cellpadding='1' font face='Verdana' size='1' bgcolor='LightBlue'>"
strBody = strBody & "<tr>"
strBody = strBody & "<td><b>&nbsp;Malzeme&nbsp;</b></td>"
strBody = strBody & "<td><b>&nbsp;Miktar&nbsp;</b></td>"
strBody = strBody & "</tr>"
    strBody = strBody & "<tr>"
    If IsNull(RS.Fields("MLZ_OZELLIK")) Then
        strBody = strBody & "<td>&nbsp;" & RS.Fields("MLZ_TANIMI") & "&nbsp;</td>"
    Else
        strBody = strBody & "<td>&nbsp;" & RS.Fields("MLZ_TANIMI") & "(" & RS.Fields("MLZ_OZELLIK") & ")&nbsp;</td>"
    End If
    strBody = strBody & "<td align=right>&nbsp;" & RS.Fields("MLZ_TALEP_MIKTARI") & " " & RS.Fields("MLZ_BIRIMI") & "&nbsp;</td>"
    strBody = strBody & "</tr>"
strBody = strBody & "</table>"
strBody = strBody & "</font><br><br>"
.rar epostaah_seruz.rar (Dosya Boyutu: 20,76 KB | İndirme Sayısı: 159)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #15
yturan
Aktif Üye
yturan
www Bul
Aktif Üye
Adı Soyadı: YU.... TU....
Yaşı: 58
Konum: Karaman
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 17/02/2025,15:42
Yorumları: 172
Konuları: 33
Kayıt Tarihi: 11/11/2008
Teşekkür Puanı: 0
Mesleğiniz: Araştırmacı
çok teşekkür ederim...
Cevapla
Çözüldü #16
mustafa_atr
CafeINTeaCam
mustafa_atr
Bul
Aktif Üye
Adı Soyadı: Ah....
Yaşı: 45
Konum: Ankara
Ofis Versiyonu: -
Son Oturumu: 31/07/2016,10:33
Yorumları: 393
Konuları: 32
Kayıt Tarihi: 15/12/2009
Teşekkür Puanı: 38
Sorununuz çözüldü mü?
Cevapla
Çözüldü #17
yturan
Aktif Üye
yturan
www Bul
Aktif Üye
Adı Soyadı: YU.... TU....
Yaşı: 58
Konum: Karaman
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 17/02/2025,15:42
Yorumları: 172
Konuları: 33
Kayıt Tarihi: 11/11/2008
Teşekkür Puanı: 0
Mesleğiniz: Araştırmacı
sorunum, gmail, hotmail, ve kurumun e-postası ile sanıyorum gönderemiyorm. smtp hizmeti veren bir yerden eposta almam gerekiyor sanırım. alınca çözüleceğini ümit ediyorum. Ama ilgilenmeniz bile büyük bir nezaket teşekkür ediyorum hepinize...
Cevapla
Çözüldü #18
mustafa_atr
CafeINTeaCam
mustafa_atr
Bul
Aktif Üye
Adı Soyadı: Ah....
Yaşı: 45
Konum: Ankara
Ofis Versiyonu: -
Son Oturumu: 31/07/2016,10:33
Yorumları: 393
Konuları: 32
Kayıt Tarihi: 15/12/2009
Teşekkür Puanı: 38
gmail'in smtp hizmeti var.
Anladığım kadarıyla sorun sizin hiç kodlama bilmiyor olmanız. Bu uygulama için hiç değilse temel düzeyde butona kod nasıl yazılır vb. biliyor olmak gerek.
Siz birde gmail üzerinde nasıl mail gönderileceği ile ilgili 🔍şu konuya da bakın belki işinize yarar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task