• DİKKAT

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

Excelde Bir Web Sayfasının içeriğini kopyalatıp mail at

  • Konbuyu başlatan Konbuyu başlatan bezl
  • Başlangıç tarihi Başlangıç tarihi
B

bezl

Katılım
3 Mayıs 2005
Mesajlar
453
Excel Vers. ve Dili
2010 - Eng
mesela bugünün resmi gazete içeriği aşağıdaki sayfada var.
http://rega.basbakanlik.gov.tr/Eskiler/2005/10/20051020.htm
ben bu sayfanın içindekileri (tümünü ctrl + A) kopyala şu mail adreslerine mail at diyebilirmiyim. Bu her gün olacağı için otomatikleştirmek istiyorum. Sadece posta gönderiliyor sorusuna evet diyeyim.
 
Aşağıdaki kodlar makro kaydet ile yapılmış olup mail makrosuna adapte edilmiştir.

[vb:1:c2a0f6282b]Sub Makro1()
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://rega.basbakanlik.gov.tr/Eskiler/2005/10/20051020.htm", Destination _
:=Range("A1"))
.Name = "20051020"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.CommandBars("External Data").Visible = False
mail
End Sub
Sub mail()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "sizin mail adresi @ mail.com", _
"Resmi Gazete Güncel"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub[/vb:1:c2a0f6282b]
 
denedim olmuyor, biraz daha açıklar mısınız sayın htsumer
 
Çok teşekkür ederim.
Ama benim istediğim bu sayfanın içeriğini kopyalayıp mail atma makrosunda gövde bölümüne (öyle bir şey varmı bilmiyorum) bu kopyalananı koyup mail attırmak.
 
Açıklayabildim mi bilmiyorum ama mailin gödesi bu dediğimiz internet sayfasının içeriği olacak yani şu an yaptığımız iş excelde yaptıığım formulle bugünün resmi gazete sayfası açılıyor tümünü kopyala deniyor ve yeni mail açılıp kopyalanıp yollanıyor. Bunu otomatikleştirebilir miyiz?
 
Þu an yaptığımız iş excelde yaptıığım makro ile bugünün resmi gazete sayfası açılıyor tümünü kopyala deniyor ve yeni mail açılıp kopyalanıp yollanıyor. Bu yaptığım makroya bu sayfa arka planda açılıp ctrl + a yapılıp mesajın gövdesine bu yapıştırılıp istenilen adreslere mail at denilebilir mi?
 
sayın htsumer,
versiyon yenilediğim halde bazı hatalar veriyor. web sayfasının excele alıyor fakat
SendMail bölümünde debugg çıkıyor. e-mailimi doğru yazdım... bilmiyorum artık nedir.
 
Visual Basic referanslarınızda bir eksiklik olabilir neler gözüküyor siz de
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst