Pasting e-mail (eg) from clipboard to folder in VBA / Excel??

[cresbydotcom]

OK this opens explorer and can paste manually

Private Sub emal_Click()
abc = "destination base folder"
dummy = Shell("explorer.exe /e, """ & abc & "\e-mails""", vbNormalNoFocus)
End Sub

But is there a way of pasting the clipboard item (ref or actual) to the actual folder location?

SendKeys might work but I prefer it to be more transparent.

any ideas?


there is a tide in the affairs of man that you Cnut ignore.................

 

[Andrzejek]

How about

Clipboard.GetText

Have fun.

---- Andy

 

[cresbydotcom]

yea been there done that many times.
But to put the e-mail in a folder in win explorer seems a bit too obscure at the moment. manually I just click in the folder and paste. But in VBA?
With attachments? Text is the easy bit.

Any other ideas?


there is a tide in the affairs of man that you Cnut ignore.................

 

[cresbydotcom]

Well I didn't figure how to do it but Outlook had switched-off macros (remote from HQ was doing something)

But they are back since I re-booted so I can use the existing Outlook macros. viz

    Dim objApp As Outlook.Application
    Dim objSel As Outlook.Selection
    Dim x As Integer
    Dim sSubjectName As String
    Dim ynTried As Boolean
    
'   Find the currently selected emails
    Set objApp = CreateObject("Outlook.Application")
    Set objSel = objApp.ActiveExplorer.Selection

' For each email
    For x = 1 To objSel.Count
        With objSel.Item(x)
        ' perform save only on selected mail messages
            If .Class = olMail Then
            ' some subjects are unsuitable for file names
            ' so allow renaming if necessary
                If .Subject = "" Then sSubjectName = InputBox("no subject for file name, give me one") Else sSubjectName = .Subject
            End If
 sSubjectName = isok(sSubjectName)
 .SaveAs masterline & "\" & sSubjectName & ".msg", olMSG
 End With
Next

there is a tide in the affairs of man that you Cnut ignore.................