outlook mail gönderirken hata

[ezginur]

evet bi süre bekliyor sonra burası hata verip sarı oluyo
Set objOutlook = CreateObject("Outlook.Application")

 

[Haluk]

Verdiği hata mesajı, hata kodu nedir?

.

 

[ezginur]

öncekiyle aynı Haluk bey

 

[Haluk]

Anlıyorum....

Bir de aşağıdaki kodu çalıştırmanızı isteyeceğim sizden ..... kodun çalışması 1-2 dakika sürebilir.

Bittikten sonra, dosyayı imzamın altındaki e-posta adresine gönderebilirsiniz.

Sub Test2()
    Set WMI = GetObject("winmgmts:\\.\root\CIMV2")
    Set myProgs = WMI.ExecQuery("SELECT * FROM Win32_MIMEInfoAction", "WQL", &H10 + &H20)
   
    For Each Prog In myProgs
        i = i + 1
        Cells(i, 1) = Prog.Name
    Next
End Sub

.

 

[ezginur]

a1 a2ye bunlar geldi

text/plain
application/x-skype

 

[Haluk]

Sadece 2 tane mi? Başka bir şey yok mu???

.

 

[ezginur]

evet 2 tane geldi Haluk bey 2 dk bekledim

 

[Haluk]

Peki ....... şimdi şöyle yapıyorsunuz;

Masanızdan kalkıp, hiyerarşik olarak bir üstünüzdeki amiriniz pozisyonunda görev alan yetkiliye gidip, kullandığınız MS Office programının kurulumunda hata olduğunu ve yeniden yüklenmesi gerektiğini bildiriyorsunuz.

Kolay gelsin,

.

 

[ezginur]

bütün bilgisayarlarda ofis365 kuruluymuş
microsoftun sitesinden kurmuşlar eksik olmaz dediler

 

[Haluk]

Ofis365 mi kullanıyorsunuz ???

Profilinizde "2016 Türkçe" diye bir ifade olduğu için, ben hep onun üzerine yoğunlaşmıştım !

O zaman durum değişebilir..... tam emin değilim ama kullandığınız versiyonda sanırım siz Outlook'u web'den kullanıyorsunuz. Daha eski versiyonlarda olduğu gibi ayrı bir Outlook programı yok sanıyorum.

Bunun için, bilgisayarınıza ilaveten Outlook 2016 kurdurmanız gerekir, yoksa o tip kodların hiç birini kullanamazsınız.

.

 

[ezginur]

bende yeni öğrendim ofis365 olduğunu bilgim yoktu hangisi yüklüyse kullanıyorum işte
eskiden 2016 Türkçe kullanıyodum şimdi yeni işyerine geçtim burdada herkes ofis365 kullanıyormuş ne farkı var anlamadım excel aynı excel
öncedende dedimya bir kaç kere çalıştı aynı kodlarla şimdi yeni oldu bu sorun
sizide çok yordum kusuruma bakmayın

 

[ezginur]

Haluk bey sizin kodu yan masadaki arkadaşımda denedim şimdi
ondada bunlar geldi
application/vnd.fdf
application/vnd.adobe.pdx
application/vnd.adobe.xdp+xml
application/vnd.adobe.xfdf

vee bu kodlar çalıştı onda

Sub Test()
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
End Sub