• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

outlook ile dosyaları toplu mail atmak

. . .

Outlook açık olmasa bile göndermek için hafızaya giden kutusuna alır.

Outlookta varsayılan tanımlı mail adresinden gönderir.

. . .
 
. . .

Yeni bir modül açıp aşağıdaki kodları içine yapıştırın.
Tablonuzu kapatıp, tekrar açın...

Kod: 
Sub Auto_Open()
    On Error Resume Next
    Set ppapp = GetObject(, "Outlook.Application")
    If ppapp Is Nothing Then
        
        bir = MsgBox(" Mc Outlook Açmak İstiyor Musunuz ? ", vbYesNo, " ")
        If bir = vbNo Then Exit Sub
        Shell "outlook"
    End If
End Sub

. . .
 
hüseyin hocam virüs programının devamlı açık olduğu gibi bilgisayarın sağ altında açık olanların olduğu gibi outlook da devamlı bilgisayrı açtığımda açık olabilirmi windows 10 kullanıyorum
 
. . .

Tam bilemiyorum ama
msconfig de başlangıca veya zamanlanmış görevlere tamınlanırsa olabilir diye düşünüyorum.
Bunu diğer yazılımsal/donanımsal forumlarda araştırmalısınız.

. . .
 
hocam aynı isim ile başlayan birdan fazla olursa birtanesini gönderiyor diğerlerini göndermiyor
örnek bir klasörün içinde 42 KONYA A LİSTE - 42 KONYA B LİSTESİ diye iki dosya var mail göndereceğim listeye 42 KONYA yazıyorum mail adresinide yazıyorum
 
Bunu gondermez cunku kodlamayi 1 dosyaya gore yaptik.
Tablonun son halinden tekrar ornek yukleyin, musait olunca incelerim.
Unutursam hatirlatin.

. . .
 
. . .

Dosyanız ektedir.

Yalnız tabo büyük/küçük harfe duyarlıdır. Yani B sütununda DENİZLİ yazıp,
dosya isminde denizli yazarsanız eşletirmez.

14553725921.png


. . .
 

Ekli dosyalar

hocam harf hatasını önlemek için harfa makrosu uyguladım ancak bir yere makro buladım
örnek aşağıdaki gibi

bir yer kaldı orayı yazı verebilirmisiniz

Private Sub Worksheet_Change(ByVal Target As Range)

'''''''''''''''''''''BÜYÜK HARF'''''''''''''''''''''''
If Target.Column = 1 Or Target.Column = 2 Then
On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
Else
End If

'''''''''''''''''''''Adı SOYADI'''''''''''''''''''''''
If Target.Column = 3 Then
Dim i As Integer, deg, deg2 As String
On Error Resume Next
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Value)
deg = Split(Target.Value, " ")
For i = LBound(deg) To UBound(deg) - 1
deg2 = deg2 & " " & deg(i)
Next
Target.Value = deg2 & " " & UCase(Replace(Replace(deg(UBound(deg)), "ı", "I"), "i", "İ"))
Target.Value = Right(Target.Value, Len(Target.Value) - 1)
Application.EnableEvents = True
End If

''''''''''''''''''''Küçük harf'''''''''''''''''''''''
'hocam açıklama sütünuna yazılan bütün bilgileri küçük harf yapsa sadece cimlenin ilk başındaki büyük olsa
'veya nokta korsa noktadan sonrakiler büyük harfle başlasa word de otomatik düzelttiği gibi
'bu işlem için buraya kod yazabilirmiisniz

End Sub
 
hocam 28. mesajdaki en son yaptığınız kod da büyük küçük harfe duyarlı olmasa mümkünse daha sağlıklı olacak

bu şelikde çözümü varsa büyükde küçükde olsa gönderse çok iyi olacak
 
. . .

Kırmızı ile belirttiğim satırı aşağıdaki ile değiştirin.

Kod: 
            If WorksheetFunction.CountIf(SY.Range("A:A"), "*" & S1.Cells(i, "B") & "*") = 0 Then
            Else
                For a = 1 To SY.Cells(Rows.Count, "A").End(3).Row
                   [B][COLOR="DarkRed"] If UCase(Replace(Replace(SY.Cells(a, "A"), "i", "İ"), "ı", "I")) Like _
                        "*" & UCase(Replace(Replace(S1.Cells(i, "B"), "i", "İ"), "ı", "I")) & "*" Then[/COLOR][/B]
                        yol = S1.Range("B1") & "\" & SY.Cells(a, "A")
                        n = n + 1
                        ReDim Preserve dizi(n)
                        dizi(n) = yol
                    End If
                Next a

. . .
 
hocam küçük büyük harfde olsa gönderecekmi uyum sorunu olmadan
 
hüseyin hocam allah razı olsun sizden
çok emeğiniz var
denedim oldu
büyük küçük harf nasıl yazsada gönderiyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst