Advertisement
| Hall of Fame |
|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: |
'====================================================================
' Requires IE v4.0+ write a data to the clipboard (copy to clipboard)
Sub wricli(sText)
Dim aa As Object
Set aa = CreateObject("InternetExplorer.Application")
With aa
.Navigate "about:blank"
Do Until .ReadyState = 4: Loop
With .Document
.Open
.Write (sText)
.Close
Do Until .ReadyState = "complete": Loop
.execcommand "SelectAll"
.execcommand "Copy"
End With ' document
End With ' IE
aa.Quit
Set aa = Nothing
End Sub
Sub Copier_hyperlien()
Dim message As Object
Dim a As Variant
Dim b As Variant
Dim ExplorerMsg As Explorer
Dim FolderMsg As MAPIFolder 'Dossier d'où provienne les msg à copier
Set FolderMsg = ActiveExplorer.CurrentFolder
Set ExplorerMsg = FolderMsg.GetExplorer
a = TypeName(Outlook.Application.ActiveWindow)
If a = "Explorer" Then
b = ""
For Each message In ExplorerMsg.Selection
b = b & coplie(message)
Next
'=== si on est dans MESSAGE, seulement le "current"
ElseIf a = "Inspector" Then
b = ""
Set message = Outlook.Application.ActiveInspector.CurrentItem
b = coplie(message)
End If
'For Each message In ExplorerMsg.Selection
'Next
wricli (b)
End Sub
Function coplie(message)
Dim a As String
If TypeOf message Is MailItem Then
a = a & "<a href=""outlook:" & message.EntryID & """>" & _
"LIEN OUTLOOK From: " & message.SenderName & _
" Sujet: " & message.Subject & _
" Date: " & message.ReceivedTime & _
" Categorie: " & message.categories & _
"</a><br>"
ElseIf TypeOf message Is TaskItem Then
a = a & "<a href=""outlook:" & message.EntryID & """>" & _
"LIEN OUTLOOK From: " & message.Owner & _
" Sujet: " & message.Subject & _
" Date: " & message.DueDate & _
" Categorie: " & message.categories & _
"</a><br>"
ElseIf TypeOf message Is ReportItem Then
a = a & "<a href=""outlook:" & message.EntryID & """>" & _
"LIEN OUTLOOK From: " & message.Owner & _
" Sujet: " & message.Subject & _
" Date: " & message.CreationTime & _
" Categorie: " & message.categories & _
"</a><br>"
Else
a = a & "ERREUR - Un item dans votre sélection n'est pas un message ou tâche - pas de lien<br>"
End If
coplie = a
End Function
|