Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Excel Makro ile Otomatik Mail Gönderme
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Sub PDFAC()
Dim xRow As Long
Dim xDirect$, xFname, InitialFoldr$
InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname = Dir(xDirect$, 7)
Do While xFname <> ""
ActiveCell.Offset(xRow) = "=Hyperlink(" & """" & xDirect$ & "" & xFname & " "")"
xRow = xRow + 1
xFname = Dir
Loop
End If
End With
End Sub
Bu kodla pdf lerini yazdır "aktif hucren nerede ise ordan baslar"
Sub mail()
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
'set sheet to find address for e-mails as I have several people to mail to
Set rngeAddresses = ActiveSheet.Range("A3:A13")
For Each rngeCell In rngeAddresses.Cells
strRecipients = strRecipients & ";" & rngeCell.Value
Next
'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Indicator activity warning ( TestMailSend )"
'Set Body for mail
aEmail.Body = "Please log onto the MIS v2 system to check status (( Indicator List))"
'Set attachment
aEmail.ATTACHMENTS.Add ActiveWorkbook.FullName
'Set Recipient
aEmail.To = strRecipients
'or send one off to 1 person use this static code
'aEmail.Recipients.Add "E-mail.address-here@ntlworld.com"
'Send Mail
aEmail.Send
End Sub
bunlada uygun aralıkları secerek mailini gonder...
-
Bu işlemin farklı seçeneğine ihtiyacım var.
Excell de çoklu sayfalarda işlem yaptım ve bu sayfaların toplamı başka bir sayfada teklif mektubuna dönüşüyor...
O teklif mektubunu tek işlemde PDF olarak mail atabilirmiyim?
Fakat kayıt ederken yine excell olarak kalması gerekiyor, çünki değişiklik yapabilmem lazım.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
