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

[bezl]

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.

 

[htsumer]

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]

 

[ali semerci]

denedim olmuyor, biraz daha açıklar mısınız sayın htsumer

 

[htsumer]

denedim olmuyor

Mail'mi göndermiyor,makromu çalışmıyor?

 

[bezl]

Ç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.

 

[ali semerci]

makto çalışmıyor... debugg çıkıyor..

 

[htsumer]

makto çalışmıyor... debugg çıkıyor..

Versiyondan dolayı.Ofis2003'de hazırlandı.

 

[bezl]

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?

 

[ali semerci]

makto çalışmıyor... debugg çıkıyor..

Versiyondan dolayı.Ofis2003'de hazırlandı.

evet, sanırım... çok teşekkür ederim. bütün dosyaları saklıyorum. eminim kısa süre sonra işime yarayacak.

 

[bezl]

Þ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?

 

[ali semerci]

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.

 

[htsumer]

bilmiyorum artık nedir.

Bende bilmiyorum.Hehe

 

[ali semerci]

oh ne ala :hiho:

 

[bezl]

Visual Basic referanslarınızda bir eksiklik olabilir neler gözüküyor siz de