Kategori arşivi: Kendime Not

Outlook 2007 Çince oldu düzeltme aracı

Office 2007 güncelleme sonrası outlook programı çince oluyor.Bu sorunu gidermek için son yüklenen gülcellemeleri kaldırabilir veya sistem geri yükleme yapabilirsiniz.Başka bir yol olarak da bizim hazırladığımız düzeltme aracını kullanabilirsiniz.Düzeltme aracını aşağıdaki link ten windows sürümünüze uygun olanı indirin. Uygun bir yere rar veya zip dosyasını açın çalıştırıp onar butonuna basın.
Windows xp için Düzeltme aracını Indirin.
Windows 8-10 için Düzeltme aracını Indirin.
Not :Windows 7-8-10 sürümlerinde uygulamaya sağ tıklayıp yönetici olarak çalıştır demeniz gerekmekte.

wordpress de wp-json özelliğinin kapatılması

WordPress 4.7.1 sürümüyle res-api özelliğini duyurdu.Bizde güncelleme var diye wordpress i güncelledik.Fakat wordpress in 4.7.1 sürümüyle gelen rest-api de açık bulundu.Kötü niyetli kişi post id ile içeriği değiştirebiliyor.Bu yüzden rest-api yi kapatmak isteyebilirsiniz.Wordpress in bunun için bir plugini var.isterseniz wp-includes/rest-api/class-wp-rest-server.php php dosyasını düzenleyerek kapatabilirsiniz.Bu dosya bir class __construct() yapıcı methoduna die(); eklerseniz sayfa bilgi sağlamayacaktir.Aynı işlemi wp-includes/rest-api/class-wp-rest-request.php php dosyasında da yapabilirsiniz.Bazen güncellemek sizi korumuyor demek ki.

Windows 8.1 ve Windows 10 da .NET Framework 3.5’i aktif etme

Merhaba arkadaşlar bu yazı da windows 8 ve üzeri sürümlerde .Netframework nasıl aktif edilir onu anlatacağım.
Normal yoldan(Denetim masası>program yükle kaldır>windows özelliklerini ac/kapa) kurmayı herkes bildiği için ben komut satırından nasıl kurulur onu anlatacağım.Yükleme yapacağımız bilgisayara windows 8 se, windows 8 dvd si windows 10 sa, windows 10 dvd si takıyoruz.Komut satırını administrator mode da çalıştırıyoruz.Yazacağımız komut

DISM /Online /Enable-Feature /FeatureName:NetFx3 /All /LimitAccess /Source:E\sources\sxs

Komutu yazdık çalıştırdık gerekli kopyalamayı yaptıktan sonra kurulumu yapacaktır.
Eğer kurulumu bu şekilde tamamlayamadıysanız.Windows settings
Bilgisayar ayarlarını değiştiri tıklıyoruz.
Windows recovery update
Güncelleştirme ve kurtarma ya basıyoruz.
windows adventage startup
Kurtama yı tıklıyoruz.Gelen ekranda gelişmiş başlangıç yeniden başlat diyoruz.
Önümüze sorun gider ekranı geliyor orayı tıklıyoruz.Gelen ekrandan komut istemini tıklıyoruz.
Bilgisayar komut ekranında bizi karşılıyor burada şu komutu veriyoruz.

DISM /Image:C:\ /Enable-Feature /FeatureName:NetFx3 /All /LimitAccess /Source:E:\sources\sxs

Bur da dikkat etmemiz gereken yer Image:C: yazdığımız yer bizim Windows umuzun kurulu olduğu yer.
Source:E:\sources\sxs yazan yer ise Windows dvd mizin içindeki dosyaların yoludur.
yararlı olması dileğiyle.

WordPress de eklentisiz facebook share button ekleme

Merhaba arkadaşlar bu yazımda sizlere wordpress üzerinde eklenti kurmadan facebook share button nasıl eklenir onu göstereceğim.
Wordpress de kullandığımız tema klasöründeki header.php dosyasını açıyoruz.
Facebook share button
Resimde görüldüğü gibi

<div id="main" class="wrapper">

div in altına aşağıdaki kodu yapıştırıyoruz.

<div id="fb-root"></div>
<script>(function(d, s, id) {
  var js, fjs = d.getElementsByTagName(s)[0];
  if (d.getElementById(id)) return;
  js = d.createElement(s); js.id = id;
  js.src = "//connect.facebook.net/tr_TR/sdk.js#xfbml=1&version=v2.7";
  fjs.parentNode.insertBefore(js, fjs);
}(document, 'script', 'facebook-jssdk'));</script>

Paylaş butonunun her yazının altında çıkması için tema klasörümüzdeki content.php dosyasını açıyoruz.

<footer class="entry-meta">

tag ını buluyoruz.
Aşağıdaki kodları hemen altına yapıştırıyoruz.

<div class="fb-share-button" data-href="<?php the_permalink();?>" data-layout="button_count" data-size="small" data-mobile-iframe="true"><a class="fb-xfbml-parse-ignore" target="_blank" href="#">Paylaş</a></div>

Not : Benim kullandığım tema twentytwelve örnek de ona göre yapılmıştır.Siz kendi temanıza göre düzenlersiniz.

ilk verilen kodlar body tag ı içinde olmalı.

MySQL de son satırdaki veriyi alma

Merhaba arkadaşlar
Bu gün MySQL de tablolarda bulunan son satırdaki veriyi nasıl alabiliriz onu anlatacağım.
MySQL de tablolar oluştururken genelde id oluştururuz.Bu id ler benzersiz ve sırayla gidecek şekilde ayarlanır.
Biz burdan yola çıkarak id leri büyükten küçüğe doğru sıralayacağız.Bu şekilde oluşturacağımız sorgu tablodaki son satırı getirecektir.
Örnek kod

SELECT * FROM `city` ORDER BY ID DESC LIMIT 1

Yukarıdaki sorgu kodumuzla city tablosunda id değeri en yüksek bir satırı getirdik. Mysql Order by

Limit değerini yükselterek daha çok satır elde edebiliriz.

SELECT * FROM `city` ORDER BY ID DESC LIMIT 5

Mysql Order By LIMIT 5
Birde php de örnekleyelim.

<?php
/*
*mysqli db connect
*site:http://www.ramazantufekci.com
*/
/*
*Bağlantı Kuruluyor
*parametreler sırasıyla host,kullanıcı ismi,şifre,database ismi
*/
$db = new mysqli("127.0.0.1","root","şifre","world") or die("mysql bağlantısı yapılamadı !");
//Mysql bağlantısı yapılmışsa karakter set ini ayarlıyoruz
if(!$db->set_charset("utf8")){
    echo "karakter set i ayarlandi";
}
//City tablosundaki son satırı getirelim.
$kaynak = $db->query("SELECT * FROM city ORDER BY ID DESC LIMIT 1");
var_export($kaynak->fetch_object());
$db->close();

?>

Kodları çalıştırdığımızda aşağıdaki gibi bir sonuç elde etmiş olacağız.
Php Mysql Order By LIMIT
Yararlı olması dileğyle

C# Regedit de Outlook ayarlarını düzenleme kodu

Selamun aleykum
Program regedit de bulunan outlook profilinde verdiğiniz değerlere göre değişiklik yapar.
Geliştirilmeye açık olduğundan programın açık kaynak koduna Buradan erişebilirsiniz.
Outlook un versiyona göre regedit kayıtları farklı yerlerdedir.
Outlook 2007 için alttaki yoldayken.

HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows Messaging Subsystem\\Profiles\\Outlook\\9375CFF0413111d3B88A00104B2A6676

Outlook 2013 için ise alttaki yoldadır.

HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Office\\15.0\\Outlook\\Profiles\\Outlook\\9375CFF0413111d3B88A00104B2A6676

Programı geliştirirken bunlara dikkat ettiğiniz taktirde sorun yaşamazsınız.
Örnek kod da outlook 2007 ve outlook 2013 için office365 ayarları yapmak için ayarlanmıştır.
yararlı olması dileğiyle

C# Jdownloaderın folder watch eklentisi için örnek kod

Merhabalar Bu gün c# la jdownloaderin folder watch eklentisi için nasıl otomatik dosyalar oluşturabiliriz onu göstermeye çalışacağım.Projenin kodları GitHub adresinde.jdfolder
Örnek uygulamamız verilen youtube kanalının video linklerini çekip jdownloader a indirmesi için ekler.

Outlook 2013 de nk2 dosyasini import etme

Merhaba arkadaşlar bu aralar firmadaki bilgisayarlarda office uygulamalarını güncelliyoruz.
Güncellerken sorunlarla karşılaşıyoruz.Eski kurulumlarda pst dosyalarını ve nk2 dosyalarını yerlerine koyduğumuzda outlook uygulaması bunları sorun yapmadan görüyordu.
Fakat office 2013 de nk2 dosyalarını yerine koysanız bile ön tanımlı mailler outlook da çıkmıyor.
Bir kaç denemeden sonra arama motorlarına başvurdum.
Microsoft un sitesinde

outlook.exe /importnk2

diye bir kod buldum.
Office 2013 kurulu olan makineye bu komutu çalıştırdan verdiğinizde nk2 dosyasını outlook görüyor ve ön tanımlı mailler mail adreslerini yazarken ekranda çıkıyor.
Bu konu da dikkat etmeniz gereken outlook profiliyle nk2 dosyasının isimlerinin aynı olması.
Nk 2 dosyaları office 2007 ve 2010 için

C:\Users\<kullanıcı ismi>\AppData\Roaming\Microsoft\Outlook

bu kullanılmaktadır.
office 2013 içinse

C:\Users\<kullanıcı ismi>\AppData\Local\Microsoft\Outlook\RoamCache

bu yol kullanılmaktadır.klasörün içindeki *.dat uzantılı streamAutocomplete ile başlayan dosyalarda tutuluyor isimler.
sağlıçakla kalın.

outlook da ekleri toplu kaydetme

Merhaba arkadaşlar uzun uğraşlardan sonra bulduğum kodları sizinle paylaşmak istiyorum.
Aşağıdaki kodları makrodan yeni modül oluşturarak içine yapıştırın ve kaydedin.
Makroyu çalıştırdığınızda sizden ekleri nereye çıkarmak istediğinizi soracak ekleri çıkaracağı dosyayı seçmeniz yeterli
uyarıları dikkate almayın. Arkadaşa şaka olsun diye yazdım.

Option Explicit

Public Sub ExportAttachments()
    Dim objOL As Outlook.Application
    Dim objMsg As Object
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim i As Long, lngCount As Long
    Dim filesRemoved As String, fName As String, strFolder As String, saveFolder As String, savePath As String
    Dim alterEmails As Boolean, overwrite As Boolean
    Dim result
    Dim sayi As Integer
   
   
    saveFolder = BrowseForFolder("Select the folder to save attachments to.")
    If saveFolder = vbNullString Then Exit Sub
   
    result = MsgBox("Emaillerini silecegim hala benimle oynamak istiyor musun? " & vbNewLine & _
    "(Saka yaptim :) )", vbYesNo + vbQuestion)
    alterEmails = (result = vbYes)
   
    Set objOL = CreateObject("Outlook.Application")
    Set objSelection = objOL.ActiveExplorer.Selection
   
    For Each objMsg In objSelection
        If objMsg.Class = olMail Then
            Set objAttachments = objMsg.Attachments
            lngCount = objAttachments.Count
            If lngCount > 0 Then
                filesRemoved = ""
                For i = lngCount To 1 Step -1
                    fName = objAttachments.Item(i).FileName
                    savePath = saveFolder & "" & fName
                    overwrite = False
                    While Dir(savePath) <> vbNullString And Not overwrite
                        sayi = Rnd(10000)
                       
                       
                       
                        Dim newFName As String
                        newFName = CStr(sayi) + fName
                        If newFName = vbNullString Then GoTo skipfile
                        If newFName = fName Then overwrite = True Else fName = newFName
                        savePath = saveFolder & "" & fName
                    Wend
                   
                    objAttachments.Item(i).SaveAsFile savePath
                   
               
skipfile:
                Next i
               
                If alterEmails Then
                    filesRemoved = "<b>Ramazan Burdaydı :)</b>: " & filesRemoved & "<br><br>"
                   
                    Dim objDoc As Object
                    Dim objInsp As Outlook.Inspector
                    Set objInsp = objMsg.GetInspector
                    Set objDoc = objInsp.WordEditor

                    objMsg.HTMLBody = filesRemoved + objMsg.HTMLBody
                    objMsg.Save
                End If
            End If
        End If
    Next
   
ExitSub:
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
End Sub

Function formatSize(size As Long) As String
    Dim val As Double, newVal As Double
    Dim unit As String
   
    val = size
    unit = "bytes"
   
    newVal = Round(val / 1024, 1)
    If newVal > 0 Then
        val = newVal
        unit = "KB"
    End If
    newVal = Round(val / 1024, 1)
    If newVal > 0 Then
        val = newVal
        unit = "MB"
    End If
    newVal = Round(val / 1024, 1)
    If newVal > 0 Then
        val = newVal
        unit = "GB"
    End If
   
    formatSize = val & " " & unit
End Function

'Function purpose:  To Browser for a user selected folder.
'If the "OpenAt" path is provided, open the browser at that directory
'NOTE:  If invalid, it will open at the Desktop level
Function BrowseForFolder(Optional Prompt As String, Optional OpenAt As Variant) As String
    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application").BrowseForFolder(0, Prompt, 0, OpenAt)

    On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
    On Error GoTo 0
    Set ShellApp = Nothing
     
    'Check for invalid or non-entries and send to the Invalid error handler if found
    'Valid selections can begin L: (where L is a letter) or \\ (as in \\servername\sharename.  All others are invalid
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":": If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "": If Not Left(BrowseForFolder, 1) = "" Then GoTo Invalid
        Case Else: GoTo Invalid
    End Select
     
    Exit Function
Invalid:
     'If it was determined that the selection was invalid, set to False
    BrowseForFolder = vbNullString
End Function

Function BrowseForFile(Optional Prompt As String, Optional OpenAt As Variant) As String
    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application").BrowseForFolder(0, Prompt, 16 + 16384, OpenAt)
   
    On Error Resume Next
    BrowseForFile = ShellApp.self.Path
    On Error GoTo 0
    Set ShellApp = Nothing
     
    'Check for invalid or non-entries and send to the Invalid error handler if found
    'Valid selections can begin L: (where L is a letter) or \\ (as in \\servername\sharename.  All others are invalid
    Select Case Mid(BrowseForFolder, 2, 1)
        Case Is = ":": If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
        Case Is = "": If Not Left(BrowseForFolder, 1) = "" Then GoTo Invalid
        Case Else: GoTo Invalid
    End Select
     
    Exit Function
Invalid:
     'If it was determined that the selection was invalid, set to False
    BrowseForFile = vbNullString
End Function