Skip to main content

AccessTr.neT


Excel Toplu Mail Gönderiminde Elektronik İmza Kullanımı

Oğuz Türkyılmaz
Oğuz Türkyılmaz
13
1196

Excel Toplu Mail Gönderiminde Elektronik İmza Kullanımı

Çözüldü #1
Merhaba Excel de çalışma sayfasında toplu mail gönderimini çalıştırdığımda gönderilen Maillerime elektronik imzam eklenmiyor. Sadece outlook da yeni mail butonu na bastığımda elektronik imzam iletiye ekleniyor. Bu durumu outlook ayarlarından düzeltmenin bir yolunu bulamadım. Bu sorun çözülebilir mi ?
Sayfa şifresi 171717

[Resim: do.php?img=10882]
[Resim: do.php?img=10883]
.rar WINPERAX - Kopya.rar (Dosya Boyutu: 134,21 KB | İndirme Sayısı: 10)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 10/04/2021, 19:16, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
Resimdeki gibi seçilimi ben kullanmadığım için bilmiyorum ayarlarda gördüm.

[Resim: do.php?img=10888]
Cevapla
#3
[quote="feraz" pid="179095" dateline="1618091510"]
Resimdeki gibi seçilimi ben kullanmadığım için bilmiyorum ayarlarda gördüm.

Feraz hocam o bölümü tıkladığımda aşağıdaki hatayı alıyorum. Başka bir ayar daha yapmak gerekiyor sanırım ama henüz bulamadım. Microsofta mail attım bakalım ne diyecekler.
[Resim: do.php?img=10889]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 11/04/2021, 09:33, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
Merhaba Sayın @oğuz Türkyılmaz

Sevgili @feraz Hocamın bahsettiği ve sizin hata aldığınız ayar Outlook'ta oluşturmuş olduğunuz imzayı değil resmi e-imza sertifikalarını aktive etmek için kullanılır. Sisteminizde kayıtlı bir e-imza sertifikası göstermediğinizden hata mesajı alıyorsunuz. Sizin yapmak istediğiniz anladığım kadarı ile Outlook için oluşturduğunuz imzanızı kullanmak.

CommandButton2 tıklanması olayına yazdığınız kodu aşağıdaki ile değiştirip dener misiniz? Referanslardan da Microsoft Outlook xx.x Object Library'yi ekleyin. Outlook'u object olarak değil application olarak tanımlayın. Mesajınızı da body olarak değil HTMLbody olarak tanımlayın.
Private Sub CommandButton2_Click()

   
    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim maill As String
    Dim i As Long, ek
    Dim syfAna As Worksheet
    Dim basla, bitis
   
    Set syfAna = ThisWorkbook.Sheets("Ana_Sayfa")
   
    ChDir (ThisWorkbook.Path & Application.PathSeparator)
    ek = Application.GetOpenFilename("Files (*.**)," & "*.**", 1, "Select File", "Open", False)
    If ek = vbNullString Then Exit Sub
    If ek = False Then Exit Sub
   
    basla = InputBox("Başlangıç ID satır numarasını Giriniz.")
    If basla < 2 Then Exit Sub
    If basla = "" Then Exit Sub
    bitis = InputBox("Bitis ID Satır numarasını Giriniz.")
    If bitis = "" Then Exit Sub
   
    If IsNumeric(basla) = False Then Exit Sub
    If IsNumeric(bitis) = False Then Exit Sub
    If basla > bitis Then Exit Sub
    If WorksheetFunction.CountA(syfAna.Range("G2:G" & Rows.Count)) = 0 Then GoTo son
    For i = Val(basla) To Val(bitis)
var2:
    If Trim(syfAna.Range("G" & i).Value) <> "" Then maill = maill & syfAna.Range("G" & i).Value & ";"
    If i Mod 50 = 0 Then Exit For
Next
    i = i + 1
    maill = Left(maill, Len(maill) - 1)

    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(objMailItem)
    With objMail
        .To = maill
        .Subject = "2021 WINPERAX Teknik Ürün Kataloğu"
        .Display
        .Attachments.Add ek
        .Importance = 2
        .Save
        .HTMLbody = "Sayın yetkili, Ekte 2021 WINPERAX Teknik Ürün Kataloğu bulunmaktadır. İyi Çalışmalar Dileriz.Saygılarımızla," & .HTMLbody
        '.Send
        Application.Wait (Now + TimeValue("0:00:59"))
    End With
    maill = vbNullString
    If i >= bitis Then GoTo var
    GoTo var2
var:
        MsgBox "Gönderildi..", vbInformation, "Bilgi"

    Set objMail = Nothing
    Set objOutlook = Nothing
    Set syfAna = Nothing
    Exit Sub
son:
    MsgBox "Hata oldu", vbCritical, "Hata"
    GoTo var
End Sub


Microsoft kodlarınıza yönelik bir dönüş yapmaz sizi genelde knowledge base'e yönlendirir. Aradığınız cevap olacağına pek güvenemiyorum. Cevap umarım işinize yarar, iyi çalışmalar.
Cevapla
#5
Evet @atoykan hocam bende imza çıktı Img-grin

Oğuz abey,
Bu dosyayı deneyiniz abey.
imza varsa onuda yollar ve id numarasına göre yollar öncekinde satır numarasına göre yapmışız Img-cray
Artık satır no değil id numaraları girin başlama ve bitiş için.


Email_Sayfa bu sayfayı silmeyin.
.Send bunları aktif edin yani başındaki tek tırnak kalkacak ve dosyadaki emailler yerine kendi emailleri giriniz.
.rar Toplu Mail yollama Outlook ile Tablolu filtrelide.rar (Dosya Boyutu: 71,5 KB | İndirme Sayısı: 7)
Cevapla
#6
Atoykan Hocam Çok Teşekkürler Seyahatte olduğum için yeni gördüm mesajınızı bu akşam deneyip mutlaka dönüş yaparım. Çok Teşekkürler.

[quote="feraz" pid="179197" dateline="1618330855"]
Evet @atoykan hocam bende imza çıktı Img-grin

Çok sağolun Tamamdır bu akşam deneyip bilgi veririm çok teşekkür ederim

Feraz Hocam Kusura Bakmayı Yeni Gördüm Seyahatteydim Akşam Mutlaka Deneyip Bilgi Veririm. Çok Teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 16/04/2021, 16:14, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task