Outlook'ta bir e-posta geldiğinde bir URL başlatmak istiyorum. Bir kural ayarlıyorum ve bir betik fonksiyonunu tetiklemesini sağladım. Ben bir tarayıcıda URL başlatmaya ShellExecute aramak istediğiniz gibi görünüyor, ama bu çizgiyi vurduğunda:Bir e-posta geldiğinde URL nasıl başlatılır
ShellExecute(0&, "open", URL, vbNullString, vbNullString, _
vbNormalFocus)
yöntem tanımlı değil. Herhangi bir fikir? Alternatif olarak
ShellExecutehttp bir Windows DLL bir fonksiyonudur. Bir VBA modülünde böyle bunun için bir deklarasyon eklemem gerekiyor:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (_
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Shell çözüm ve ShellExecute arasındaki fark URL'ler bağlantıyı açmak için ShellExecutehttp varsayılan sistem işleyicisi kullanmak olacaktır. Bunun IE olması gerekmiyor. Çözümünüz her zaman IE'de açılacaktır. Sizinki, iexplore.exe'yi windows'daki çalıştırma kutusuna koymakla eşdeğerdir. ShellExecute, URL'leri pencerelerde çalıştırma kutusuna koymakla eşdeğerdir.
bu gibi Shell kullanımı:
Sub LaunchURL(Item As Outlook.MailItem)
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & Item.Body)
End Sub
Varsayılan tarayıcıda URL'leri açmak için VBA'dan Followhyperlink'u da kullanabilirsiniz. Kayıtlı uygulama ile belgeleri açmak, e-posta göndermek ve klasörlere göz atmak için de kullanılabilir.
bu bilgileri nerede Toplu dosyası oluşturabilirsiniz:
start http://someurl.com/?a=1^&b=2
Ve Outlook'u yapılandırmak Bu toplu iş dosyasını başlatmak için kural. Dikkat^&'dan önce imzala. Toplu iş dosyalarında & için çıkış sırası budur. Ayrıca, Windows işletim sisteminizde varsayılan tarayıcı ayarına sahip olmanız gerektiğine de dikkat edin, buna sahip olduğunuz neredeyse% 100 olasılık.
Shell ("CMD /C start http://www.spamcop.net"), vbNormalFocus