macro ile macro çalıştırmak

[ThEeNCi]

user formda command butonu ile sayfa 1 deki RDB_Outlook mail dosyası var bu macroyu user formada nasıl çağırabilirim call RDB_Outlook yapıyorum hata veriyor yardım edebilirmisiniz teşekür ederim.

 

[Necdet]

Merhaba,

Nasıl yardımcı olabiliriz? Ortada kod yok, dosya yok.

 

[ThEeNCi]

peki dosya ekliyorum

 

[ThEeNCi]

sipariş sayfasındaki mail işaretiyle o sayfayı mail atabiliyor ben user formadaki mail ikonuna tıklayın aynı işlevi görmesini istiyordum
teşekürler

 

[Emir Hüseyin Çoban]

. . .

Mail kodlarınızı Sipariş sayfası kod bölümünde Sub prosüdürüne alınız.

Sub KOD
Dim StringTo As String, StringCC As String, StringBCC As String
    Dim ShArr() As String, FArr() As String, strDate As String
    Dim myCell As Range, cell As Range, rng As Range, Fname As String, Fname2 As String
    Dim wb As Workbook, sh As Worksheet
    Dim DefPath As String
    Dim olApp As Object
    Dim olMail As Object
    Dim FileExtStr As String
[B]' mail kodlarınızın devamı[/B]

End Sub

Daha sonra sayfa üzerindeki mail butonuna

Private Sub RDB_Outlook_Click()
Call KOD
End Sub

Form üzerindeki mail butonuna

Private Sub Image100_Click()
Call RDBOutlookPDF2.KOD
End Sub

. . .

 

[ThEeNCi]

user formda çalışmıyor hüseyin bey

 

[Emir Hüseyin Çoban]

. . .

Bende çalışıyor.
Gelen maillerden de görebilirsiniz
Ekte.

. . .

 

[ThEeNCi]

hüseyin bey çok teşekür ederim iyi bayramlar diliyorum harika oldu