Yeni Üyelerin Link Eklemesi Yasaklanmıştır!
Full Oyun & Program, Full Film Paylaşımları Yasaklanmıştır!

 Forum ana sayfa » Program Bölümü » Office Uygulamaları » Excel
 Excel'den e-mail Adresine Mesaj Gönderme
Giriş |  Kayıt
Kayıt GirişAra Arama

Excel'den e-mail Adresine Mesaj Gönderme
Yeni başlık gönder Başlığa cevap ver
 1. sayfa (Toplam 1 sayfa)  [ 1 mesaj ] 
  Yazıcı görüntüsü

13 Ağu 2009 10:51
kdursun
Site Yöneticisi
Kayıt: 20 Kas 2008 13:43
Başlıklar: 132
Mesajlar: 208
Çevrimdışı
A1'deki e-mail adresine mesaj gönderir.

Kod: Tümünü seç
Sub Excel_Serienmail_via_Outlook_Senden()
    Dim OutApp As Object, Mail As Object
    Dim i As Integer
    Dim Nachricht
    For i = 1 To 10
    'Variablen müssen bei jeder Schleife neu initalisiert werden
        Set OutApp = CreateObject("Outlook.Application")
        Set Nachricht = OutApp.CreateItem(0)
        With Nachricht
            .To = Cells(i, 1)'Adresse
            .Subject = Cells(i, 2) 'Betreffzeile
            .Body = Cells(i, 3) 'Sendetext
            'Hier wird die Mail gleich in den Postausgang gelegt
            'und die Sicherheitsabfrage muss jedesmall bestätigt werden
            '.Send
            'Hier wird die Mail "angezeigt"
            'aber gleich versendet,... OHNE Sicherheitsabrage
            .Display
            SendKeys "%s",True
        End With
        'Variablen zurücksetzen sonst geht es nicht
        Set OutApp = Nothing 'CreateObject("Outlook.Application")
        Set Nachricht = Nothing 'OutApp.CreateItem(0)
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub
Başa Dön Başa Dön
 
 
Eskiden itibaren mesajları göster:  Sırala  
Yeni başlık gönder Başlığa cevap ver
 1. sayfa (Toplam 1 sayfa)  [ 1 mesaj ] 

Forum ana sayfa » Program Bölümü » Office Uygulamaları » Excel

Tüm zamanlar UTC + 2 saat [ GITZ ]

Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 0 misafir

Bu foruma yeni başlıklar gönderemezsiniz
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı düzenleyemezsiniz
Bu forumdaki mesajlarınızı silemezsiniz

Aranacak:
Geçiş yap:  

Site haritası


YGH Forum memurlar Toner windows 8 indir Grafik Tasarım kanal d oyunları silah oyunları araba oyunları ukash ukash kart maurers satılık daire kamp çadırı