OUTLOOK EXPRESS'TEN EMAIL

[turkanet]

biliyorum, bu konuda çok başlık açıldı ama ben bu soruma bir türlü cevap alamadığım için tekrar açmak istedim.
sorum şu:
OUTLOOK EXPRESS KULLANIYORUM. MICROSOFT OUTLOOK KULLANMADIÐIM TAKDİRDE, MAKROYLA EMAIL YOLLAMA ÞANSIM YOK MU?
teşekkürler

 

[keniken]

şuna bi göz atın..

Sub EmailSheet3()
    Dim OutlookApp As Object, OutlookMsg As Object
    Dim FSO As Object
    Dim BodyText1 As Object, BodyText2 As Object
    Dim MyRange As Range
    Dim TempFile1 As String, TempFile2 As String
    Dim NoF As Long
    
    NoF = Range("K65536").Cells.End(xlUp).Row
    If NoF > 1 Then
    Range("A" & NoF + 2) = Range("R1").Text
    Range("A" & NoF + 2 & ":K" & NoF + 15).Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    End If
    TempFile1 = "E:\TempHTML1.htm"
    TempFile2 = "E:\TempHTML2.htm"

    Set FSO = CreateObject("Scripting.FilesystemObject")
    
    On Error Resume Next
    
    Set MyRange = ActiveSheet.Range("A1:K" & NoF + 15)
    If MyRange Is Nothing Then Exit Sub
    ActiveWorkbook.PublishObjects.Add _
    (4, TempFile1, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMsg = OutlookApp.CreateItem(0)
    Set BodyText1 = FSO.OpenTextFile(TempFile1, 1)
    Set BodyText2 = FSO.OpenTextFile(TempFile2, 1)
        
    With OutlookMsg
        .HTMLBody = BodyText1.ReadAll & BodyText2.ReadAll
        .Subject = Range("A2").Text & " " & Range("U1").Text
        .To = ""
        .CC = ""
        .Display
    End With
        
    Kill TempFile1
    Kill TempFile2
    
    Set BodyText2 = Nothing
    Set BodyText1 = Nothing
    Set OutlookMsg = Nothing
    Set OutlookApp = Nothing
    Set MyRange = Nothing
    Set FSO = Nothing
End Sub

 

[bezl]

belirli bir eposta hesabına bulunduğun dosyayı (adını bugünün tarihi olarak) mail atar.

Sub Mail_Workbook_2() 
    Dim wb1 As Workbook 
    Dim wb2 As Workbook 
    Dim wbname As String 
    Application.ScreenUpdating = False 
    Sheets(1).Range("A1").Select 
    Selection.Copy 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 
    Application.CutCopyMode = False 
    ActiveWorkbook.Password = "" 
    
    Set wb1 = ActiveWorkbook 
    wbname = "C:/" & _ 
    Format(Now, "dd.mm.yyyy") & ".xls" 
    wb1.SaveCopyAs wbname 
    
    Set wb2 = Workbooks.Open(wbname) 
    With wb2 
        .SendMail "a@hotmail.com", _ 
                  Format(Now, "dd.mm.yyyy") 
        .ChangeFileAccess xlReadOnly 
         Kill .FullName 
        .Close False 
    End With 
    Application.ScreenUpdating = True 
End Sub

 

[turkanet]

"to" kısmına email adresimi yazdım ama kodun en başında hata veriyor. Private Sub ile başlayan yeri işaretliyor

 

[turkanet]

sevgili arkadaşlar, bu forumda neredeyse tüm sorularıma cevap buldum ve excelde -kendimce- epeyce bir ilerleme kaydettim. ama bir türlü outlook ile email yollama olayını öğrenemedim.
yapmaya çalıştığım tam olarak şudur;

ihracat.xls adında bir çalışmam var. bu çalışmamın sadece "icmal" sayfasını sabit bir adrese bir butona tıklayarak yollamak istiyorum. fakat yukarıdaki kodlar dahil olmak üzere, hep hata oluyor. örneğin, kodu sayfaya atamak için önce sayfaya bir buton yapıp kodu görüntüle diyorum. sonra da yukarıdakileri o kodun ortasına yapıştırıyorum. ama bir türlü olmuyor. bu konuda yardıma ihtiyacım var.

şimdiden teşekkürler.

 

[ALPEN]

http://www.excel.web.tr/viewtopic.php?p=36360#36360

Kaldığınız yerden devam etseydiniz daha iyi olurdu.

En azından çalışıp çalışmadığı geri bildirimi için bir şeyler yazabilirdiniz.

 

[turkanet]

SN ALPEN, DİÐER BAÞLIKTAN DEVAM EDİYORUM, BAÞARILAR

 

[TRABLUS]

Bu konuyu önceki konu ile birleştirmeyi düşündüm ama, ordaki cevaplar ile bunlar birbirine karışacak diye vazgeçtim. Ã?nce ki konunun linki aşağıdadır.

http://www.excel.web.tr/viewtopic.php?t=2160&start=75