selamlar arkadaslar.asagıdakı makro ıle outlook uzerınden maıl gonderebılıyorum fakat bır bılgısayarımda outlook yok onun yerıne windows live mail ya da makro ıle calıstırabılecegım bır programa kurmak ıstıyorum maıl hesabımı.asagıdakı makroyu outlook dısındakı bır programa gore ayarlayabılırsenız cok sevınırım. yardımlara tesekkurler. eger baska programda calısma sansı yok ıse bılgılendırırsenız sevınırım.
Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String
uzanti = Right(ActiveWorkbook.Name, InStr(1, StrReverse(ActiveWorkbook.Name), ".", vbTextCompare))
MyFile = "C:\ÜRETİME AÇILAN SİPARİŞLER\" & Range("DA1").Value & uzanti
'----------------------------------------------
ActiveWorkbook.SaveAs MyFile
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = [ea1] & ";" & [ea2] & ";" & [ea3]
'.BCC =
.Subject = Now & " " & [n6] & " SİPARİŞ FORMU"
.Body = "Merhaba;" & Chr(13) & Chr(13) & Now & " tarihli " & [n6] & " " & [bi6] & " adet" & " sipariş ektedir." & Chr(13) & Chr(13) & "İyi Çalışmalar."
.Attachments.Add MyFile
'.Display'Bu satırı kapatıp
.Send 'bu satırı açın.
Application.DisplayAlerts = True
End With
MsgBox "MAIL GÖNDERİLDİ.!!", vbOKOnly
Application.ScreenUpdating = True
Set app = Nothing
Set posta = Nothing
'************************************************* *********************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'************************************************* *********************
End Sub
Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String
uzanti = Right(ActiveWorkbook.Name, InStr(1, StrReverse(ActiveWorkbook.Name), ".", vbTextCompare))
MyFile = "C:\ÜRETİME AÇILAN SİPARİŞLER\" & Range("DA1").Value & uzanti
'----------------------------------------------
ActiveWorkbook.SaveAs MyFile
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = [ea1] & ";" & [ea2] & ";" & [ea3]
'.BCC =
.Subject = Now & " " & [n6] & " SİPARİŞ FORMU"
.Body = "Merhaba;" & Chr(13) & Chr(13) & Now & " tarihli " & [n6] & " " & [bi6] & " adet" & " sipariş ektedir." & Chr(13) & Chr(13) & "İyi Çalışmalar."
.Attachments.Add MyFile
'.Display'Bu satırı kapatıp
.Send 'bu satırı açın.
Application.DisplayAlerts = True
End With
MsgBox "MAIL GÖNDERİLDİ.!!", vbOKOnly
Application.ScreenUpdating = True
Set app = Nothing
Set posta = Nothing
'************************************************* *********************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'************************************************* *********************
End Sub