Citat:
Public Sub SendAllFiles()
Dim Files As VBA.Collection
Dim File As Scripting.File
Dim Mail As Outlook.MailItem
Dim Atts As Outlook.Attachments
'Send the files of this directory
m_Send = "C:\Sample\testskicka\"
'Move send files here
m_Done = "C:\Sample\testskickade\"
'Recipient
m_To = "testar@mail.com"
Set Files = GetFiles
If Files.Count Then
For Each File In Files
Set Mail = Application.CreateItem(olMailItem)
Mail.Attachments.Add File.Path
File.Move m_Done & File.Name
Mail.To = m_To
Mail.Subject = "Datei: " & File.Name
Mail.Display
Next
End If
End Sub
Private Function GetFiles() As VBA.Collection
Dim Folder As Scripting.Folder
Dim Fso As Scripting.FileSystemObject
Dim Files As Scripting.Files
Dim File As Scripting.File
Dim List As VBA.Collection
Set List = New VBA.Collection
Set Fso = New Scripting.FileSystemObject
Set Folder = Fso.GetFolder(m_Send)
Set Files = Folder.Files
For Each File In Files
'return only those files that are not hidden
If (File.Attributes Or Hidden) <> File.Attributes Then
List.Add File
End If
Next
Set GetFiles = List
End Function
Fått lite hjälp med den koden. Lägger in den i Outlook 2010, makron är aktiverade.
När jag försöker köra skriptet säger den "Ogiltigt proceduranrop eller argument"
Körfel nr:`5`
Tacksam för hjälp.
(testar förtillfället i outlook 2010.På fredag ska jag testa där scriptet kommer att användas senare på Outlook 2007)
