FileOpenDiyalog

[askm]

Kolay gelsin. Müsadenizle 2 sorum olacak.
1. Sorum: Outlookda tanımlı iki mail adresi var. kimden kısmını ".to =" gibi seçme imkanım var mı. ". who=" yazıyorum olmuyor.
2. Sorum: Aşağıdaki kodlar ile dosya çağırıp outlooka ekleyebiliyorum. Yalnız bir seferde birden fazla dosya nasıl seçebilirim.


msg1 = MsgBox("Mail dosyası göndermek istiyormusunuz.? " & Chr(10) & Chr(10) & _
"Mail dosyası eklemek için EVET tıklayınız. " & Chr(10) & Chr(10) & _
"Dosya eklemeden göndermek için HAYIR tıklayınız. " & Chr(10) & Chr(10) & _
"İşlem yapmadan çıkmak için İPTAL tıklayınız. ", vbYesNoCancel + vbInformation, "u y a r ı !")

If msg1 = vbCancel Then
Exit Sub
End If


Dim Mail_Dosyası As String

If msg1 = vbYes Then

DsyTur = "Excel Files(*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm"
DsyTur = DsyTur & ",MSForm Resim Dosyaları (*.jpg;*.jpe;*.gif;*.jpeg;*.ico), *.jpg;*.jpe;*.gif;*.jpeg;*.ico"
DsyTur = DsyTur & ",Metin Belgeleri(*.txt), *.txt"
DsyTur = DsyTur & ",Visual Basic Files (*.txt; *.bas), *.txt; *.bas"
DsyTur = DsyTur & ",Tüm Dosyalar(*.*), *.*"


a = Application.GetOpenFilename(DsyTur)



If a = False Then
MsgBox "Kaynak klasörü seçmediniz"
Exit Sub
End If
End If
Mail_Dosyası = a


.Attachments.Add Mail_Dosyası

 

[Korhan Ayhan]

Merhaba,

1. Sorunuz için ; Link

2. Sorunuz için ; Link

 

[askm]

Korhan Bey ilginize teşekkür ederim.
Yalnız ikisini de yapamadım.
1.Soru için
'Bu satır, 2 nolu hesabı kullanmak için ...
Set appAcct = APP.Session.Accounts.Item(2)



.SendUsingAccount = oLook.Session.Accounts.Item(2)
satırlarını ekledim ama olmadı.
2. örnek için de
e = Application.GetOpenFilename(FileFilter:=DsyTur, Title:="aserin@sgk.gov.tr", ButtonText:="Ateşle", MultiSelect:=True)


For vn = LBound(e) To UBound(e)
vn = vn & vn & ";"

Next
EK = Left(m, Len(m) - 1)
.Attachments.Add EK

şeklinde deniyorum ama bir türlü olmuyor.

 

[askm]

2.Sorum için (Dosya ekleme için)
aşağıdaki kod ile oldu

For x = 5 To [b65536].End(3).Row
atch = mainWB.Sheets("Mail İçeriği").Range("B" & x).Value
If atch <> "" Then
.Attachments.Add atch
End If
Next x

 

[askm]

Aşağıdaki kodlar ile çözüme kavuştum kimden kısmını seçmek için.
KAYNAK: http://www.utteraccess.com/forum/lofiversion/index.php/t1986849.html
'********************************************************
'BU KISIM 2. MAİL ADRESİNİ SEÇMEK İÇİN
strDefaultAccount = appOutLook.Session.Accounts(2).DisplayName
For Each olAccount In olAccounts
MsgBox olAccount.UserName & " " & strDefaultAccount 'This returns the outlook user acct
Next

.SendUsingAccount = appOutLook.Session.Accounts.Item(2)
.SentOnBehalfOfName = "aseri@sgk.gov.tr"


'********************************************************************