Makro İle Maİl Atma

[ANTALYA 01]

Modul 1 Yapıştırdığımda çalışıyor
Aktif Dosyayı outluka aktarıyor.

Sub MAİL()
Application.Dialogs(xlDialogSendMail).Show
End Sub


Module 2 Yapıştırdığımda çalışıyor
Aşağıdaki cümleleri devamlı yazmaktansa bir düğmeyle outluka yazıyor yazıyor.mail atarken

Sub Mail_Text_in_Body()
Dim msg As String
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Recipient = "ahmet.ucar@exel.com"
'Recipientcc = ""
'Recipientbcc = ""
Subj = "SİPARİŞ HAKKINDA"
msg = "Sayın " & [B1] & " , " & vbNewLine
msg = msg & "Antalya Şube Sipariş Listesi ektedir.Bilginize arz ederim" & vbNewLine
msg = msg & "SAYGILARIMLA."

msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" ' & "cc=" & Recipientcc & "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
' Application.Wait (Now + TimeValue("0:00:03"))
' Application.SendKeys "%n"
End Sub

Ben Bu Kodların birleşerek çalışmasını istiyorum yapamadım her iki modul birleştirilebilir mi
Yani Modul 1 le Modul 2 Beraber çalışsın aktif dosyayı eklesin.Cümleleri yazsın eğer mümkünse aktif dosyayıda sıkıştırsın.mail atacak duruma getirsin.

 

[ANTALYA 01]

D

Merhaba

Bu kodlar sanırsam birleşmiyor.Yani İki moduldeki işlem bir modulde yapılamıyor doğru mu anladım.

 

[Recep İpek]

Modülleri birleştirmek yerine aşağıdaki kodları kullanabilirsiniz.

Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String

'ActiveWorkbook.Save
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
    With posta
      .To = "xxx@yyy.com;zzz@bbb.com"
      .CC = "ggg@ffgghh.com"
      '.BCC =
      .Subject = Date & " Günlük Rapor"
      .Body = "Merhaba" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Date & " tarihli rapor ektedir" & Chr(13) & Chr(13) & Chr(13) & "İyi Çalışmalar."
      .Attachments.Add MyFile
      .Display
      '.Send
    End With
Application.DisplayAlerts = True

Set app = Nothing
Set posta = Nothing
'**********************************************************************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'**********************************************************************
End Sub

 

[gokhanbek]

Windows Live Mail

kullanarak sayfamı nasıl e mail yollaya bilirim yardımcı ola bilirmisiniz

 

[gokhanbek]

Modülleri birleştirmek yerine aşağıdaki kodları kullanabilirsiniz.

Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String

'ActiveWorkbook.Save
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
    With posta
      .To = "xxx@yyy.com;zzz@bbb.com"
      .CC = "ggg@ffgghh.com"
      '.BCC =
      .Subject = Date & " Günlük Rapor"
      .Body = "Merhaba" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Date & " tarihli rapor ektedir" & Chr(13) & Chr(13) & Chr(13) & "İyi Çalışmalar."
      .Attachments.Add MyFile
      .Display
      '.Send
    End With
Application.DisplayAlerts = True

Set app = Nothing
Set posta = Nothing
'**********************************************************************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'**********************************************************************
End Sub

Windows Live Mail

kullanarak sayfamı nasıl e mail yollaya bilirim yardımcı ola bilirmisiniz