Merhabalar,
Biraz araştırdım fakat bir türlü bulamadım,
Yapmaya çalıştığım şey şu;
Çalışılan dosya üzerinde dosyayı mail ile gönder butonu mevcut
Buna basıldığında;
1- Dosyayı farklı kaydet deyip serverda spesifik bir yere kayıt ettiriyorum. İsminide dosyanın içerisindeki bir datayı alarak yapıyorum. (Bunu yaptım)
2- Bir mail açıp içeriğine birşeyler yazıyorum ve gönderiyorum. (Bunu yaptım)
3- Şuan bir ekleme yapmak istiyorum fakat içinden çıkamadım. Server'a farklı kaydet dediğim dosyayı bu gönderdiğim e-mail içerisinde hyperlink olarak göstermek istiyorum.
Yardımcı olabilir misiniz?
Şimdiden teşekkürler.
Biraz araştırdım fakat bir türlü bulamadım,
Yapmaya çalıştığım şey şu;
Çalışılan dosya üzerinde dosyayı mail ile gönder butonu mevcut
Buna basıldığında;
1- Dosyayı farklı kaydet deyip serverda spesifik bir yere kayıt ettiriyorum. İsminide dosyanın içerisindeki bir datayı alarak yapıyorum. (Bunu yaptım)
2- Bir mail açıp içeriğine birşeyler yazıyorum ve gönderiyorum. (Bunu yaptım)
3- Şuan bir ekleme yapmak istiyorum fakat içinden çıkamadım. Server'a farklı kaydet dediğim dosyayı bu gönderdiğim e-mail içerisinde hyperlink olarak göstermek istiyorum.
Yardımcı olabilir misiniz?
Şimdiden teşekkürler.
Kod:
Dim cc1, to1, to2, to3, to4, to5 As String
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
Dim yenidosyaadi As String
yenidosyaadi = Range("C3").Value
ChDir "...."
ActiveWorkbook.SaveAs Filename:= _
"..., FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Using the email, add multiple recipients, using a list of addresses in column A.
With olMailItm
cc1 = Range("XEW1").Value 'system owner
to1 = Range("XEW2").Value ' leaders
to2 = Range("XEW3").Value
to3 = Range("XEW4").Value
to4 = Range("XEW5").Value
'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
.to = cc1 'to1;to2;to3;to4;to5 eklenecek.
.cc = cc1
.Subject = "MOC - Risk Analizi Talebi"
.Body = [B]burada hyperlinki yayınlamam gerekiyor. yukarıda save as yaparak tanımladığım dosyayı follow eden bir hyperlink olmalı.[/B]
.send
End With
'Clean up the Outlook application.
Set olMailItm = Nothing
Set olApp = Nothing
'uyarı çıkart mailiniz gönderildi diye
MsgBox "E-mailiniz Basari Ile Duzenlendi, Gönderilen Öğeler Kutusunu İnceleyebilirsiniz.", vbInformation
End Sub