Attachment Array?

Status
Not open for further replies.
H

hlock

I am having to recreate lotus notes code into outlook code and am finding it

very difficult since I don't know coding very well. It's taken me a long

time just to get where I am using snippets from what I have found from

others. I know that what I want to do is for each attachment in a single

email, I want to save it off, "remember" the path and filename and create a

description. Then I need to use the path and filename and the description

later during the creation of an .ini file. However, I'm not doing it

correctly. I thought I should be using the string split(), but I am getting

an error msg. I have indicated the error msg below. Since our IT dept

doesn't have a lot of time to work on this, I'm trying to do it myself (lol!)

Any advice would be much appreciate. If you would like the lotus notes

script to be posted to see what was originally intended, let me know as I am

not completely done with this yet.

I am posting the whole code as I know that it is fraught with errors.

However, it's a work in progress.

Option Explicit

Public Sub initialize()

Dim fso

Dim fil

Dim objapp As Outlook.Application

Dim ns As Outlook.NameSpace

Dim ext As String

Dim tempfile As String

Dim tempdir As String

Dim path As String

Dim del As String

Dim app As String

Dim objitem As Object

Dim strsubject As String

Dim filename As String

Dim objAttachments As Outlook.attachments

Dim i As Long

Dim lngCount As Long

Dim strfile As String

Dim strsender As String

Dim strrecipient As String

Dim strCC As String

Dim strBCC As String

Dim intsent As Date

Dim strbody As String

Set fso = CreateObject("Scripting.FileSystemObject")

Set ns = GetNamespace("MAPI")

Set objapp = CreateObject("Outlook.application")

Select Case TypeName(objapp.ActiveWindow)

Case "Explorer"

Set objitem = objapp.ActiveExplorer.Selection.item(1)

Case "Inspector"

Set objitem = objapp.ActiveInspector.CurrentItem

Case Else

'

End Select

tempdir = ("c:\temp\outlookimport")

CheckFolder

strsubject = objitem.Subject

strsender = objitem.SenderName

strrecipient = objitem.To

strCC = objitem.CC

strBCC = objitem.BCC

intsent = objitem.SentOn

strbody = objitem.Body

filename = StripIllegalChar(strsubject)

If fso.GetExtensionName(filename) = "" Then

filename = filename & ".rtf"

End If

ext = fso.GetExtensionName(filename)

path = fso.BuildPath(tempdir, filename)

objitem.SaveAs path, olRTF

Dim attachments() As String

Dim attachdescs() As String

Set objAttachments = objitem.attachments

attachments = Split(objAttachments, ",") 'getting error msg here invalid

procedure call or argument

attachdescs = Split(strsubject, ",") 'getting error msg here invalid

procedure call or argument

lngCount = objAttachments.Count

If lngCount > 0 Then

For i = lngCount To 1 Step -1

ReDim Preserve attachments(UBound(attachments) + 1)

ReDim Preserve attachdescs(UBound(attachdescs) + 1)

strfile = objAttachments.item(i).filename

strfile = Replace(strfile, " ", "_")

strfile = tempdir & "\" & strfile

objAttachments.item(i).SaveAsFile strfile

Next i

End If

Dim towfile As String

Dim fileNum As String

towfile = tempdir & "\tower.ini"

fileNum = FreeFile

Open towfile For Output As fileNum

Open towfile For Output As fileNum

Print #fileNum, "[Group1]"

Print #fileNum, "Desc=" & filename

Print #fileNum, "MultiPage=Yes"

Print #fileNum, "DeleteWhen=Always"

Print #fileNum, "DefaultApp=email"

Print #fileNum, "ShowDesc=Yes"

Print #fileNum, "EmailImport=Yes"

Print #fileNum, "MAIL_FROM=" & strsender

Print #fileNum, "MAIL_TO=" & strrecipient '

Adding the indexing info here

If strCC > "" Then

Print #fileNum, "MAIL_CC=" & strCC

Else

Print #fileNum, "MAIL_CC=NULL "

End If

If strBCC > "" Then

Print #fileNum, "MAIL_BCC=" & strBCC

Else

Print #fileNum, "MAIL_BCC=NULL"

End If

Print #fileNum, "MAIL_DATE=" & intsent

If filename > "" Then

Print #fileNum, "MAIL_SUBJECT=" & filename

Else

Print #fileNum, "MAIL_SUBJECT=NULL"

End If

If lngCount = 0 Then

Print #fileNum, "NumberOfFiles=1"

Print #fileNum, "File1=" & filename

Print #fileNum, "Desc1=" & strsubject

Else

Print #fileNum, "NumberOfFiles=" & lngCount + 1

Print #fileNum, "File1=" & filename

Print #fileNum, "Desc1=" & strsubject

Dim z As Integer

For z = 1 To lngCount

Print #fileNum, "File" & (z + 1) & "=" & attachments(z)

'File2=C:\TMP\c2.bmp

Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'This is

the message body

Next z

End If

Print #fileNum, "[General]"

Print #fileNum, "NumberofGroups=1"

Close fileNum

'Call IDMImport(towfile)

'fso.DeleteFile path, True

'Set fso = Nothing

End Sub

Function StripIllegalChar(StrInput)

Dim RegX As Object

Set RegX = CreateObject("vbscript.regexp")

RegX.Pattern = "[\" & Chr(34) &

"\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"

RegX.IgnoreCase = True

RegX.Global = True

StripIllegalChar = RegX.Replace(StrInput, "")

ExitFunction:

Set RegX = Nothing

End Function

Sub CheckFolder()

Dim fso

Dim fol As String

fol = ("c:\temp\outlookimport")

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(fol) Then

fso.CreateFolder (fol)

End If

End Sub
 
objAttachments is already a collection of attachments. There's no need to

create an array for it, instead of a loop through the array just loop

through the collection:

Dim Att as Outlook.Attachment

For Each Att in objAttachments

' do anything here with the attachment

Next

Best regards

Michael Bauer

Am Mon, 16 Nov 2009 22:19:04 -0800 schrieb hlock:


> I am having to recreate lotus notes code into outlook code and am finding


it
> very difficult since I don't know coding very well. It's taken me a long
> time just to get where I am using snippets from what I have found from
> others. I know that what I want to do is for each attachment in a single
> email, I want to save it off, "remember" the path and filename and create


a
> description. Then I need to use the path and filename and the description
> later during the creation of an .ini file. However, I'm not doing it
> correctly. I thought I should be using the string split(), but I am


getting
> an error msg. I have indicated the error msg below. Since our IT dept
> doesn't have a lot of time to work on this, I'm trying to do it myself


(lol!)
> Any advice would be much appreciate. If you would like the lotus notes
> script to be posted to see what was originally intended, let me know as I


am
> not completely done with this yet.
> I am posting the whole code as I know that it is fraught with errors.
> However, it's a work in progress.
> Option Explicit
> Public Sub initialize()
> Dim fso
> Dim fil
> Dim objapp As Outlook.Application
> Dim ns As Outlook.NameSpace
> Dim ext As String
> Dim tempfile As String
> Dim tempdir As String
> Dim path As String
> Dim del As String
> Dim app As String
> Dim objitem As Object
> Dim strsubject As String
> Dim filename As String
> Dim objAttachments As Outlook.attachments
> Dim i As Long
> Dim lngCount As Long
> Dim strfile As String
> Dim strsender As String
> Dim strrecipient As String
> Dim strCC As String
> Dim strBCC As String
> Dim intsent As Date
> Dim strbody As String
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set ns = GetNamespace("MAPI")
> Set objapp = CreateObject("Outlook.application")
> Select Case TypeName(objapp.ActiveWindow)
> Case "Explorer"
> Set objitem = objapp.ActiveExplorer.Selection.item(1)
> Case "Inspector"
> Set objitem = objapp.ActiveInspector.CurrentItem
> Case Else
> '
> End Select
> tempdir = ("c:\temp\outlookimport")
> CheckFolder
> strsubject = objitem.Subject
> strsender = objitem.SenderName
> strrecipient = objitem.To
> strCC = objitem.CC
> strBCC = objitem.BCC
> intsent = objitem.SentOn
> strbody = objitem.Body
> filename = StripIllegalChar(strsubject)
> If fso.GetExtensionName(filename) = "" Then
> filename = filename & ".rtf"
> End If
> ext = fso.GetExtensionName(filename)
> path = fso.BuildPath(tempdir, filename)
> objitem.SaveAs path, olRTF
> Dim attachments() As String
> Dim attachdescs() As String
> Set objAttachments = objitem.attachments
> attachments = Split(objAttachments, ",") 'getting error msg here


invalid
> procedure call or argument
> attachdescs = Split(strsubject, ",") 'getting error msg here


invalid
> procedure call or argument
> lngCount = objAttachments.Count
> If lngCount > 0 Then
> For i = lngCount To 1 Step -1
> ReDim Preserve attachments(UBound(attachments) + 1)
> ReDim Preserve attachdescs(UBound(attachdescs) + 1)
> strfile = objAttachments.item(i).filename
> strfile = Replace(strfile, " ", "_")
> strfile = tempdir & "\" & strfile
> objAttachments.item(i).SaveAsFile strfile
> Next i
> End If
> Dim towfile As String
> Dim fileNum As String
> towfile = tempdir & "\tower.ini"
> fileNum = FreeFile
> Open towfile For Output As fileNum
> Open towfile For Output As fileNum
> Print #fileNum, "[Group1]"
> Print #fileNum, "Desc=" & filename
> Print #fileNum, "MultiPage=Yes"
> Print #fileNum, "DeleteWhen=Always"
> Print #fileNum, "DefaultApp=email"
> Print #fileNum, "ShowDesc=Yes"
> Print #fileNum, "EmailImport=Yes"
> Print #fileNum, "MAIL_FROM=" & strsender
> Print #fileNum, "MAIL_TO=" & strrecipient '
> Adding the indexing info here
> If strCC > "" Then
> Print #fileNum, "MAIL_CC=" & strCC
> Else
> Print #fileNum, "MAIL_CC=NULL "
> End If
> If strBCC > "" Then
> Print #fileNum, "MAIL_BCC=" & strBCC
> Else
> Print #fileNum, "MAIL_BCC=NULL"
> End If
> Print #fileNum, "MAIL_DATE=" & intsent
> If filename > "" Then
> Print #fileNum, "MAIL_SUBJECT=" & filename
> Else
> Print #fileNum, "MAIL_SUBJECT=NULL"
> End If
> If lngCount = 0 Then
> Print #fileNum, "NumberOfFiles=1"
> Print #fileNum, "File1=" & filename
> Print #fileNum, "Desc1=" & strsubject
> Else
> Print #fileNum, "NumberOfFiles=" & lngCount + 1
> Print #fileNum, "File1=" & filename
> Print #fileNum, "Desc1=" & strsubject
> Dim z As Integer
> For z = 1 To lngCount
> Print #fileNum, "File" & (z + 1) & "=" & attachments(z)
> 'File2=C:\TMP\c2.bmp
> Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'This


is
> the message body
> Next z
> End If
> Print #fileNum, "[General]"
> Print #fileNum, "NumberofGroups=1"
> Close fileNum

> 'Call IDMImport(towfile)
> 'fso.DeleteFile path, True
> 'Set fso = Nothing
> End Sub
> Function StripIllegalChar(StrInput)
> Dim RegX As Object
> Set RegX = CreateObject("vbscript.regexp")
> RegX.Pattern = "[\" & Chr(34) &
> "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"
> RegX.IgnoreCase = True
> RegX.Global = True
> StripIllegalChar = RegX.Replace(StrInput, "")
> ExitFunction:
> Set RegX = Nothing
> End Function
> Sub CheckFolder()
> Dim fso
> Dim fol As String
> fol = ("c:\temp\outlookimport")
> Set fso = CreateObject("Scripting.FileSystemObject")
> If Not fso.FolderExists(fol) Then
> fso.CreateFolder (fol)
> End If
> End Sub
 
Thank you. I apologize for the double post. For some reason my postings are

not showing up for me until the next day. Nontheless, where I run into

problems is further down in creating the tower.ini file.

Dim z As Integer

For z = 1 To lngCount

Print #fileNum, "File" & (z + 1) & "=" & attachments (z)

'File2=C:\TMP\c2.bmp

Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'description

Next z

Here we have to run through the attachments and list them along with a

description until all attachments have been listed. For example, there are 3

attachments (note the first file is the email) - AdjusterReport.pdf,

AdjusterPhotos.pdf, and Litigation.pdf. In creating the ini file, the

attachments need to be listed as follows:

File2=C:\temp\outlookimport\AdjusterReport.pdf

Desc2=This is the attachment#1

File3=C:\temp\outlookimport\AdjusterPhotos.pdf

Desc3=This is the attachment#2

File4=C:\temp\outlookimport\Litigation.pdf

Desc4=This is the attachment#3

How would I accomplish this?

"Michael Bauer " wrote:



> objAttachments is already a collection of attachments. There's no need to
> create an array for it, instead of a loop through the array just loop
> through the collection:

> Dim Att as Outlook.Attachment
> For Each Att in objAttachments
> ' do anything here with the attachment
> Next

> > Best regards
> Michael Bauer

> > >

> Am Mon, 16 Nov 2009 22:19:04 -0800 schrieb hlock:
>
> > I am having to recreate lotus notes code into outlook code and am finding

> it
> > very difficult since I don't know coding very well. It's taken me a long
> > time just to get where I am using snippets from what I have found from
> > others. I know that what I want to do is for each attachment in a single
> > email, I want to save it off, "remember" the path and filename and create

> a
> > description. Then I need to use the path and filename and the description
> > later during the creation of an .ini file. However, I'm not doing it
> > correctly. I thought I should be using the string split(), but I am

> getting
> > an error msg. I have indicated the error msg below. Since our IT dept
> > doesn't have a lot of time to work on this, I'm trying to do it myself

> (lol!)
> > Any advice would be much appreciate. If you would like the lotus notes
> > script to be posted to see what was originally intended, let me know as I

> am
> > not completely done with this yet.
> > I am posting the whole code as I know that it is fraught with errors.
> > However, it's a work in progress.
> > Option Explicit
> > Public Sub initialize()
> > Dim fso
> > Dim fil
> > Dim objapp As Outlook.Application
> > Dim ns As Outlook.NameSpace
> > Dim ext As String
> > Dim tempfile As String
> > Dim tempdir As String
> > Dim path As String
> > Dim del As String
> > Dim app As String
> > Dim objitem As Object
> > Dim strsubject As String
> > Dim filename As String
> > Dim objAttachments As Outlook.attachments
> > Dim i As Long
> > Dim lngCount As Long
> > Dim strfile As String
> > Dim strsender As String
> > Dim strrecipient As String
> > Dim strCC As String
> > Dim strBCC As String
> > Dim intsent As Date
> > Dim strbody As String
> > Set fso = CreateObject("Scripting.FileSystemObject")
> > Set ns = GetNamespace("MAPI")
> > Set objapp = CreateObject("Outlook.application")
> > Select Case TypeName(objapp.ActiveWindow)
> > Case "Explorer"
> > Set objitem = objapp.ActiveExplorer.Selection.item(1)
> > Case "Inspector"
> > Set objitem = objapp.ActiveInspector.CurrentItem
> > Case Else
> > '
> > End Select
> > tempdir = ("c:\temp\outlookimport")
> > CheckFolder
> > strsubject = objitem.Subject
> > strsender = objitem.SenderName
> > strrecipient = objitem.To
> > strCC = objitem.CC
> > strBCC = objitem.BCC
> > intsent = objitem.SentOn
> > strbody = objitem.Body
> > filename = StripIllegalChar(strsubject)
> > If fso.GetExtensionName(filename) = "" Then
> > filename = filename & ".rtf"
> > End If
> > ext = fso.GetExtensionName(filename)
> > path = fso.BuildPath(tempdir, filename)
> > objitem.SaveAs path, olRTF
> > Dim attachments() As String
> > Dim attachdescs() As String
> > Set objAttachments = objitem.attachments
> > attachments = Split(objAttachments, ",") 'getting error msg here

> invalid
> > procedure call or argument
> > attachdescs = Split(strsubject, ",") 'getting error msg here

> invalid
> > procedure call or argument
> > lngCount = objAttachments.Count
> > If lngCount > 0 Then
> > For i = lngCount To 1 Step -1
> > ReDim Preserve attachments(UBound(attachments) + 1)
> > ReDim Preserve attachdescs(UBound(attachdescs) + 1)
> > strfile = objAttachments.item(i).filename
> > strfile = Replace(strfile, " ", "_")
> > strfile = tempdir & "\" & strfile
> > objAttachments.item(i).SaveAsFile strfile
> > Next i
> > End If
> > Dim towfile As String
> > Dim fileNum As String
> > towfile = tempdir & "\tower.ini"
> > fileNum = FreeFile
> > Open towfile For Output As fileNum
> > Open towfile For Output As fileNum
> > Print #fileNum, "[Group1]"
> > Print #fileNum, "Desc=" & filename
> > Print #fileNum, "MultiPage=Yes"
> > Print #fileNum, "DeleteWhen=Always"
> > Print #fileNum, "DefaultApp=email"
> > Print #fileNum, "ShowDesc=Yes"
> > Print #fileNum, "EmailImport=Yes"
> > Print #fileNum, "MAIL_FROM=" & strsender
> > Print #fileNum, "MAIL_TO=" & strrecipient '
> > Adding the indexing info here
> > If strCC > "" Then
> > Print #fileNum, "MAIL_CC=" & strCC
> > Else
> > Print #fileNum, "MAIL_CC=NULL "
> > End If
> > If strBCC > "" Then
> > Print #fileNum, "MAIL_BCC=" & strBCC
> > Else
> > Print #fileNum, "MAIL_BCC=NULL"
> > End If
> > Print #fileNum, "MAIL_DATE=" & intsent
> > If filename > "" Then
> > Print #fileNum, "MAIL_SUBJECT=" & filename
> > Else
> > Print #fileNum, "MAIL_SUBJECT=NULL"
> > End If
> > If lngCount = 0 Then
> > Print #fileNum, "NumberOfFiles=1"
> > Print #fileNum, "File1=" & filename
> > Print #fileNum, "Desc1=" & strsubject
> > Else
> > Print #fileNum, "NumberOfFiles=" & lngCount + 1
> > Print #fileNum, "File1=" & filename
> > Print #fileNum, "Desc1=" & strsubject
> > Dim z As Integer
> > For z = 1 To lngCount
> > Print #fileNum, "File" & (z + 1) & "=" & attachments(z)
> > 'File2=C:\TMP\c2.bmp
> > Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'This

> is
> > the message body
> > Next z
> > End If
> > Print #fileNum, "[General]"
> > Print #fileNum, "NumberofGroups=1"
> > Close fileNum
> > 'Call IDMImport(towfile)
> > 'fso.DeleteFile path, True
> > 'Set fso = Nothing
> > End Sub
> > Function StripIllegalChar(StrInput)
> > Dim RegX As Object
> > Set RegX = CreateObject("vbscript.regexp")
> > RegX.Pattern = "[\" & Chr(34) &
> > "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"
> > RegX.IgnoreCase = True
> > RegX.Global = True
> > StripIllegalChar = RegX.Replace(StrInput, "")
> > ExitFunction:
> > Set RegX = Nothing
> > End Function
> > Sub CheckFolder()
> > Dim fso
> > Dim fol As String
> > fol = ("c:\temp\outlookimport")
> > Set fso = CreateObject("Scripting.FileSystemObject")
> > If Not fso.FolderExists(fol) Then
> > fso.CreateFolder (fol)
> > End If
> > End Sub

> .
>
 
Here's an example for how to write a file:

http://www.vboffice.net/en/developers/open-and-save-files

Attachments(z) returns an Attachment object. Please see the object browser

(f2) for what properties are available: switch from <All libraries> to

Outlook, and left hand select 'Attachment'.

Before you can read the attachment's path, you need to save it as a file.

Best regards

Michael Bauer

Am Tue, 17 Nov 2009 07:36:01 -0800 schrieb hlock:


> Thank you. I apologize for the double post. For some reason my postings


are
> not showing up for me until the next day. Nontheless, where I run into
> problems is further down in creating the tower.ini file.

> Dim z As Integer
> For z = 1 To lngCount
> Print #fileNum, "File" & (z + 1) & "=" & attachments (z)
> 'File2=C:\TMP\c2.bmp
> Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'description
> Next z

> Here we have to run through the attachments and list them along with a
> description until all attachments have been listed. For example, there


are 3
> attachments (note the first file is the email) - AdjusterReport.pdf,
> AdjusterPhotos.pdf, and Litigation.pdf. In creating the ini file, the
> attachments need to be listed as follows:

> File2=C:\temp\outlookimport\AdjusterReport.pdf
> Desc2=This is the attachment#1

> File3=C:\temp\outlookimport\AdjusterPhotos.pdf
> Desc3=This is the attachment#2

> File4=C:\temp\outlookimport\Litigation.pdf
> Desc4=This is the attachment#3

> How would I accomplish this?

> "Michael Bauer " wrote:
>
>

>
>> objAttachments is already a collection of attachments. There's no need to
> > create an array for it, instead of a loop through the array just loop
> > through the collection:
>

>> Dim Att as Outlook.Attachment
> > For Each Att in objAttachments
> > ' do anything here with the attachment
> > Next
>

>> > > Best regards
> > Michael Bauer
>

>> >> >>

>

>
>> Am Mon, 16 Nov 2009 22:19:04 -0800 schrieb hlock:
> >
> >> I am having to recreate lotus notes code into outlook code and am


finding
> > it
> >> very difficult since I don't know coding very well. It's taken me a


long
> >> time just to get where I am using snippets from what I have found from
> >> others. I know that what I want to do is for each attachment in a


single
> >> email, I want to save it off, "remember" the path and filename and


create
> > a
> >> description. Then I need to use the path and filename and the


description
> >> later during the creation of an .ini file. However, I'm not doing it
> >> correctly. I thought I should be using the string split(), but I am

> > getting
> >> an error msg. I have indicated the error msg below. Since our IT dept
> >> doesn't have a lot of time to work on this, I'm trying to do it myself

> > (lol!)
> >> Any advice would be much appreciate. If you would like the lotus notes
> >> script to be posted to see what was originally intended, let me know as


I
> > am
> >> not completely done with this yet.
> >> I am posting the whole code as I know that it is fraught with errors.
> >> However, it's a work in progress.
> >> Option Explicit
> >> Public Sub initialize()
> >> Dim fso
> >> Dim fil
> >> Dim objapp As Outlook.Application
> >> Dim ns As Outlook.NameSpace
> >> Dim ext As String
> >> Dim tempfile As String
> >> Dim tempdir As String
> >> Dim path As String
> >> Dim del As String
> >> Dim app As String
> >> Dim objitem As Object
> >> Dim strsubject As String
> >> Dim filename As String
> >> Dim objAttachments As Outlook.attachments
> >> Dim i As Long
> >> Dim lngCount As Long
> >> Dim strfile As String
> >> Dim strsender As String
> >> Dim strrecipient As String
> >> Dim strCC As String
> >> Dim strBCC As String
> >> Dim intsent As Date
> >> Dim strbody As String
> >> Set fso = CreateObject("Scripting.FileSystemObject")
> >> Set ns = GetNamespace("MAPI")
> >> Set objapp = CreateObject("Outlook.application")
> >> Select Case TypeName(objapp.ActiveWindow)
> >> Case "Explorer"
> >> Set objitem = objapp.ActiveExplorer.Selection.item(1)
> >> Case "Inspector"
> >> Set objitem = objapp.ActiveInspector.CurrentItem
> >> Case Else
> >> '
> >> End Select
> >> tempdir = ("c:\temp\outlookimport")
> >> CheckFolder
> >> strsubject = objitem.Subject
> >> strsender = objitem.SenderName
> >> strrecipient = objitem.To
> >> strCC = objitem.CC
> >> strBCC = objitem.BCC
> >> intsent = objitem.SentOn
> >> strbody = objitem.Body
> >> filename = StripIllegalChar(strsubject)
> >> If fso.GetExtensionName(filename) = "" Then
> >> filename = filename & ".rtf"
> >> End If
> >> ext = fso.GetExtensionName(filename)
> >> path = fso.BuildPath(tempdir, filename)
> >> objitem.SaveAs path, olRTF
> >> Dim attachments() As String
> >> Dim attachdescs() As String
> >> Set objAttachments = objitem.attachments
> >> attachments = Split(objAttachments, ",") 'getting error msg here

> > invalid
> >> procedure call or argument
> >> attachdescs = Split(strsubject, ",") 'getting error msg here

> > invalid
> >> procedure call or argument
> >> lngCount = objAttachments.Count
> >> If lngCount > 0 Then
> >> For i = lngCount To 1 Step -1
> >> ReDim Preserve attachments(UBound(attachments) + 1)
> >> ReDim Preserve attachdescs(UBound(attachdescs) + 1)
> >> strfile = objAttachments.item(i).filename
> >> strfile = Replace(strfile, " ", "_")
> >> strfile = tempdir & "\" & strfile
> >> objAttachments.item(i).SaveAsFile strfile
> >> Next i
> >> End If
> >> Dim towfile As String
> >> Dim fileNum As String
> >> towfile = tempdir & "\tower.ini"
> >> fileNum = FreeFile
> >> Open towfile For Output As fileNum
> >> Open towfile For Output As fileNum
> >> Print #fileNum, "[Group1]"
> >> Print #fileNum, "Desc=" & filename
> >> Print #fileNum, "MultiPage=Yes"
> >> Print #fileNum, "DeleteWhen=Always"
> >> Print #fileNum, "DefaultApp=email"
> >> Print #fileNum, "ShowDesc=Yes"
> >> Print #fileNum, "EmailImport=Yes"
> >> Print #fileNum, "MAIL_FROM=" & strsender
> >> Print #fileNum, "MAIL_TO=" & strrecipient '
> >> Adding the indexing info here
> >> If strCC > "" Then
> >> Print #fileNum, "MAIL_CC=" & strCC
> >> Else
> >> Print #fileNum, "MAIL_CC=NULL "
> >> End If
> >> If strBCC > "" Then
> >> Print #fileNum, "MAIL_BCC=" & strBCC
> >> Else
> >> Print #fileNum, "MAIL_BCC=NULL"
> >> End If
> >> Print #fileNum, "MAIL_DATE=" & intsent
> >> If filename > "" Then
> >> Print #fileNum, "MAIL_SUBJECT=" & filename
> >> Else
> >> Print #fileNum, "MAIL_SUBJECT=NULL"
> >> End If
> >> If lngCount = 0 Then
> >> Print #fileNum, "NumberOfFiles=1"
> >> Print #fileNum, "File1=" & filename
> >> Print #fileNum, "Desc1=" & strsubject
> >> Else
> >> Print #fileNum, "NumberOfFiles=" & lngCount + 1
> >> Print #fileNum, "File1=" & filename
> >> Print #fileNum, "Desc1=" & strsubject
> >> Dim z As Integer
> >> For z = 1 To lngCount
> >> Print #fileNum, "File" & (z + 1) & "=" & attachments(z)
> >> 'File2=C:\TMP\c2.bmp
> >> Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z)


'This
> > is
> >> the message body
> >> Next z
> >> End If
> >> Print #fileNum, "[General]"
> >> Print #fileNum, "NumberofGroups=1"
> >> Close fileNum
> >
>>> 'Call IDMImport(towfile)
> >> 'fso.DeleteFile path, True
> >> 'Set fso = Nothing
> >> End Sub
> >> Function StripIllegalChar(StrInput)
> >> Dim RegX As Object
> >> Set RegX = CreateObject("vbscript.regexp")
> >> RegX.Pattern = "[\" & Chr(34) &
> >> "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"
> >> RegX.IgnoreCase = True
> >> RegX.Global = True
> >> StripIllegalChar = RegX.Replace(StrInput, "")
> >> ExitFunction:
> >> Set RegX = Nothing
> >> End Function
> >> Sub CheckFolder()
> >> Dim fso
> >> Dim fol As String
> >> fol = ("c:\temp\outlookimport")
> >> Set fso = CreateObject("Scripting.FileSystemObject")
> >> If Not fso.FolderExists(fol) Then
> >> fso.CreateFolder (fol)
> >> End If
> >> End Sub

> > .
> >
 
I'm making progress, but my (z) numbers aren't increasing with the addition

of attachments:

Dim att As Outlook.Attachment

Dim z As Integer

Dim attfile As String

'For z = 1 To lngCount

z = 1

For Each att In objAttachments

attfile = att.filename

attfile = Replace(attfile, " ", "_")

attfile = tempdir & "\" & attfile

Print #fileNum, "File" & (z + 1) & "=" & attfile

Print #fileNum, "Desc" & (z + 1) & "=" & "This is the

attachment#" & (z)

Next att

I'm getting:

File2=C:\temp\outlookimport\AdjusterReport.pdf

Desc2=This is the attachment#1

File2=C:\temp\outlookimport\AdjusterPhotos.pdf

Desc2=This is the attachment#1

How do I get the (z) numbers to increase? Thanks!!!

"hlock" wrote:


> Thank you. I apologize for the double post. For some reason my postings are
> not showing up for me until the next day. Nontheless, where I run into
> problems is further down in creating the tower.ini file.

> Dim z As Integer
> For z = 1 To lngCount
> Print #fileNum, "File" & (z + 1) & "=" & attachments (z)
> 'File2=C:\TMP\c2.bmp
> Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'description
> Next z
>



> Here we have to run through the attachments and list them along with a
> description until all attachments have been listed. For example, there are 3
> attachments (note the first file is the email) - AdjusterReport.pdf,
> AdjusterPhotos.pdf, and Litigation.pdf. In creating the ini file, the
> attachments need to be listed as follows:

> File2=C:\temp\outlookimport\AdjusterReport.pdf
> Desc2=This is the attachment#1

> File3=C:\temp\outlookimport\AdjusterPhotos.pdf
> Desc3=This is the attachment#2

> File4=C:\temp\outlookimport\Litigation.pdf
> Desc4=This is the attachment#3

> How would I accomplish this?

> "Michael Bauer " wrote:
>
> > objAttachments is already a collection of attachments. There's no need to
> > create an array for it, instead of a loop through the array just loop
> > through the collection:
> > Dim Att as Outlook.Attachment
> > For Each Att in objAttachments
> > ' do anything here with the attachment
> > Next
> > > > Best regards
> > Michael Bauer
> > > > > >

> > Am Mon, 16 Nov 2009 22:19:04 -0800 schrieb hlock:
> >
> > > I am having to recreate lotus notes code into outlook code and am finding

> > it
> > > very difficult since I don't know coding very well. It's taken me a long
> > > time just to get where I am using snippets from what I have found from
> > > others. I know that what I want to do is for each attachment in a single
> > > email, I want to save it off, "remember" the path and filename and create

> > a
> > > description. Then I need to use the path and filename and the description
> > > later during the creation of an .ini file. However, I'm not doing it
> > > correctly. I thought I should be using the string split(), but I am

> > getting
> > > an error msg. I have indicated the error msg below. Since our IT dept
> > > doesn't have a lot of time to work on this, I'm trying to do it myself

> > (lol!)
> > > Any advice would be much appreciate. If you would like the lotus notes
> > > script to be posted to see what was originally intended, let me know as I

> > am
> > > not completely done with this yet.
> > > I am posting the whole code as I know that it is fraught with errors.
> > > However, it's a work in progress.
> > > Option Explicit
> > > Public Sub initialize()
> > > Dim fso
> > > Dim fil
> > > Dim objapp As Outlook.Application
> > > Dim ns As Outlook.NameSpace
> > > Dim ext As String
> > > Dim tempfile As String
> > > Dim tempdir As String
> > > Dim path As String
> > > Dim del As String
> > > Dim app As String
> > > Dim objitem As Object
> > > Dim strsubject As String
> > > Dim filename As String
> > > Dim objAttachments As Outlook.attachments
> > > Dim i As Long
> > > Dim lngCount As Long
> > > Dim strfile As String
> > > Dim strsender As String
> > > Dim strrecipient As String
> > > Dim strCC As String
> > > Dim strBCC As String
> > > Dim intsent As Date
> > > Dim strbody As String
> > > Set fso = CreateObject("Scripting.FileSystemObject")
> > > Set ns = GetNamespace("MAPI")
> > > Set objapp = CreateObject("Outlook.application")
> > > Select Case TypeName(objapp.ActiveWindow)
> > > Case "Explorer"
> > > Set objitem = objapp.ActiveExplorer.Selection.item(1)
> > > Case "Inspector"
> > > Set objitem = objapp.ActiveInspector.CurrentItem
> > > Case Else
> > > '
> > > End Select
> > > tempdir = ("c:\temp\outlookimport")
> > > CheckFolder
> > > strsubject = objitem.Subject
> > > strsender = objitem.SenderName
> > > strrecipient = objitem.To
> > > strCC = objitem.CC
> > > strBCC = objitem.BCC
> > > intsent = objitem.SentOn
> > > strbody = objitem.Body
> > > filename = StripIllegalChar(strsubject)
> > > If fso.GetExtensionName(filename) = "" Then
> > > filename = filename & ".rtf"
> > > End If
> > > ext = fso.GetExtensionName(filename)
> > > path = fso.BuildPath(tempdir, filename)
> > > objitem.SaveAs path, olRTF
> > > Dim attachments() As String
> > > Dim attachdescs() As String
> > > Set objAttachments = objitem.attachments
> > > attachments = Split(objAttachments, ",") 'getting error msg here

> > invalid
> > > procedure call or argument
> > > attachdescs = Split(strsubject, ",") 'getting error msg here

> > invalid
> > > procedure call or argument
> > > lngCount = objAttachments.Count
> > > If lngCount > 0 Then
> > > For i = lngCount To 1 Step -1
> > > ReDim Preserve attachments(UBound(attachments) + 1)
> > > ReDim Preserve attachdescs(UBound(attachdescs) + 1)
> > > strfile = objAttachments.item(i).filename
> > > strfile = Replace(strfile, " ", "_")
> > > strfile = tempdir & "\" & strfile
> > > objAttachments.item(i).SaveAsFile strfile
> > > Next i
> > > End If
> > > Dim towfile As String
> > > Dim fileNum As String
> > > towfile = tempdir & "\tower.ini"
> > > fileNum = FreeFile
> > > Open towfile For Output As fileNum
> > > Open towfile For Output As fileNum
> > > Print #fileNum, "[Group1]"
> > > Print #fileNum, "Desc=" & filename
> > > Print #fileNum, "MultiPage=Yes"
> > > Print #fileNum, "DeleteWhen=Always"
> > > Print #fileNum, "DefaultApp=email"
> > > Print #fileNum, "ShowDesc=Yes"
> > > Print #fileNum, "EmailImport=Yes"
> > > Print #fileNum, "MAIL_FROM=" & strsender
> > > Print #fileNum, "MAIL_TO=" & strrecipient '
> > > Adding the indexing info here
> > > If strCC > "" Then
> > > Print #fileNum, "MAIL_CC=" & strCC
> > > Else
> > > Print #fileNum, "MAIL_CC=NULL "
> > > End If
> > > If strBCC > "" Then
> > > Print #fileNum, "MAIL_BCC=" & strBCC
> > > Else
> > > Print #fileNum, "MAIL_BCC=NULL"
> > > End If
> > > Print #fileNum, "MAIL_DATE=" & intsent
> > > If filename > "" Then
> > > Print #fileNum, "MAIL_SUBJECT=" & filename
> > > Else
> > > Print #fileNum, "MAIL_SUBJECT=NULL"
> > > End If
> > > If lngCount = 0 Then
> > > Print #fileNum, "NumberOfFiles=1"
> > > Print #fileNum, "File1=" & filename
> > > Print #fileNum, "Desc1=" & strsubject
> > > Else
> > > Print #fileNum, "NumberOfFiles=" & lngCount + 1
> > > Print #fileNum, "File1=" & filename
> > > Print #fileNum, "Desc1=" & strsubject
> > > Dim z As Integer
> > > For z = 1 To lngCount
> > > Print #fileNum, "File" & (z + 1) & "=" & attachments(z)
> > > 'File2=C:\TMP\c2.bmp
> > > Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'This

> > is
> > > the message body
> > > Next z
> > > End If
> > > Print #fileNum, "[General]"
> > > Print #fileNum, "NumberofGroups=1"
> > > Close fileNum
> > > > 'Call IDMImport(towfile)
> > > 'fso.DeleteFile path, True
> > > 'Set fso = Nothing
> > > End Sub
> > > Function StripIllegalChar(StrInput)
> > > Dim RegX As Object
> > > Set RegX = CreateObject("vbscript.regexp")
> > > RegX.Pattern = "[\" & Chr(34) &
> > > "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"
> > > RegX.IgnoreCase = True
> > > RegX.Global = True
> > > StripIllegalChar = RegX.Replace(StrInput, "")
> > > ExitFunction:
> > > Set RegX = Nothing
> > > End Function
> > > Sub CheckFolder()
> > > Dim fso
> > > Dim fol As String
> > > fol = ("c:\temp\outlookimport")
> > > Set fso = CreateObject("Scripting.FileSystemObject")
> > > If Not fso.FolderExists(fol) Then
> > > fso.CreateFolder (fol)
> > > End If
> > > End Sub

> > .
> >
 
Either:

For z=1 to CountWhatever

set att=objAttachments(z)

Next

or:

For Each att in objAttachments

z=z+1

next

Best regards

Michael Bauer

Am Tue, 17 Nov 2009 12:53:02 -0800 schrieb hlock:


> I'm making progress, but my (z) numbers aren't increasing with the


addition
> of attachments:

> Dim att As Outlook.Attachment
> Dim z As Integer
> Dim attfile As String
> 'For z = 1 To lngCount
> z = 1
> For Each att In objAttachments
> attfile = att.filename
> attfile = Replace(attfile, " ", "_")
> attfile = tempdir & "\" & attfile
> Print #fileNum, "File" & (z + 1) & "=" & attfile
> Print #fileNum, "Desc" & (z + 1) & "=" & "This is the
> attachment#" & (z)
> Next att

> I'm getting:
> File2=C:\temp\outlookimport\AdjusterReport.pdf
> Desc2=This is the attachment#1

> File2=C:\temp\outlookimport\AdjusterPhotos.pdf
> Desc2=This is the attachment#1

> How do I get the (z) numbers to increase? Thanks!!!

> "hlock" wrote:
>
> > Thank you. I apologize for the double post. For some reason my postings


are
> > not showing up for me until the next day. Nontheless, where I run into
> > problems is further down in creating the tower.ini file.
>

>> Dim z As Integer
> > For z = 1 To lngCount
> > Print #fileNum, "File" & (z + 1) & "=" & attachments (z)
> > 'File2=C:\TMP\c2.bmp
> > Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z) 'description
> > Next z
> >

>
> > Here we have to run through the attachments and list them along with a
> > description until all attachments have been listed. For example, there


are 3
> > attachments (note the first file is the email) - AdjusterReport.pdf,
> > AdjusterPhotos.pdf, and Litigation.pdf. In creating the ini file, the
> > attachments need to be listed as follows:
>

>> File2=C:\temp\outlookimport\AdjusterReport.pdf
> > Desc2=This is the attachment#1
>

>> File3=C:\temp\outlookimport\AdjusterPhotos.pdf
> > Desc3=This is the attachment#2
>

>> File4=C:\temp\outlookimport\Litigation.pdf
> > Desc4=This is the attachment#3
>

>> How would I accomplish this?
>

>> "Michael Bauer " wrote:
> >
> >
>>
>>> objAttachments is already a collection of attachments. There's no need


to
> >> create an array for it, instead of a loop through the array just loop
> >> through the collection:
> >
>>> Dim Att as Outlook.Attachment
> >> For Each Att in objAttachments
> >> ' do anything here with the attachment
> >> Next
> >
>>> > >> Best regards
> >> Michael Bauer
> >
>>> >>> >>>

> >
>>
>>> Am Mon, 16 Nov 2009 22:19:04 -0800 schrieb hlock:
> >
>>> > I am having to recreate lotus notes code into outlook code and am


finding
> >> it
> >> > very difficult since I don't know coding very well. It's taken me a


long
> >> > time just to get where I am using snippets from what I have found from
> >> > others. I know that what I want to do is for each attachment in a


single
> >> > email, I want to save it off, "remember" the path and filename and


create
> >> a
> >> > description. Then I need to use the path and filename and the


description
> >> > later during the creation of an .ini file. However, I'm not doing it
> >> > correctly. I thought I should be using the string split(), but I am
> >> getting
> >> > an error msg. I have indicated the error msg below. Since our IT


dept
> >> > doesn't have a lot of time to work on this, I'm trying to do it myself
> >> (lol!)
> >> > Any advice would be much appreciate. If you would like the lotus


notes
> >> > script to be posted to see what was originally intended, let me know


as I
> >> am
> >> > not completely done with this yet.
> >> > I am posting the whole code as I know that it is fraught with errors.
> >> > However, it's a work in progress.
> >> > Option Explicit
> >> > Public Sub initialize()
> >> > Dim fso
> >> > Dim fil
> >> > Dim objapp As Outlook.Application
> >> > Dim ns As Outlook.NameSpace
> >> > Dim ext As String
> >> > Dim tempfile As String
> >> > Dim tempdir As String
> >> > Dim path As String
> >> > Dim del As String
> >> > Dim app As String
> >> > Dim objitem As Object
> >> > Dim strsubject As String
> >> > Dim filename As String
> >> > Dim objAttachments As Outlook.attachments
> >> > Dim i As Long
> >> > Dim lngCount As Long
> >> > Dim strfile As String
> >> > Dim strsender As String
> >> > Dim strrecipient As String
> >> > Dim strCC As String
> >> > Dim strBCC As String
> >> > Dim intsent As Date
> >> > Dim strbody As String
> >> > Set fso = CreateObject("Scripting.FileSystemObject")
> >> > Set ns = GetNamespace("MAPI")
> >> > Set objapp = CreateObject("Outlook.application")
> >> > Select Case TypeName(objapp.ActiveWindow)
> >> > Case "Explorer"
> >> > Set objitem = objapp.ActiveExplorer.Selection.item(1)
> >> > Case "Inspector"
> >> > Set objitem = objapp.ActiveInspector.CurrentItem
> >> > Case Else
> >> > '
> >> > End Select
> >> > tempdir = ("c:\temp\outlookimport")
> >> > CheckFolder
> >> > strsubject = objitem.Subject
> >> > strsender = objitem.SenderName
> >> > strrecipient = objitem.To
> >> > strCC = objitem.CC
> >> > strBCC = objitem.BCC
> >> > intsent = objitem.SentOn
> >> > strbody = objitem.Body
> >> > filename = StripIllegalChar(strsubject)
> >> > If fso.GetExtensionName(filename) = "" Then
> >> > filename = filename & ".rtf"
> >> > End If
> >> > ext = fso.GetExtensionName(filename)
> >> > path = fso.BuildPath(tempdir, filename)
> >> > objitem.SaveAs path, olRTF
> >> > Dim attachments() As String
> >> > Dim attachdescs() As String
> >> > Set objAttachments = objitem.attachments
> >> > attachments = Split(objAttachments, ",") 'getting error msg here
> >> invalid
> >> > procedure call or argument
> >> > attachdescs = Split(strsubject, ",") 'getting error msg here
> >> invalid
> >> > procedure call or argument
> >> > lngCount = objAttachments.Count
> >> > If lngCount > 0 Then
> >> > For i = lngCount To 1 Step -1
> >> > ReDim Preserve attachments(UBound(attachments) + 1)
> >> > ReDim Preserve attachdescs(UBound(attachdescs) + 1)
> >> > strfile = objAttachments.item(i).filename
> >> > strfile = Replace(strfile, " ", "_")
> >> > strfile = tempdir & "\" & strfile
> >> > objAttachments.item(i).SaveAsFile strfile
> >> > Next i
> >> > End If
> >> > Dim towfile As String
> >> > Dim fileNum As String
> >> > towfile = tempdir & "\tower.ini"
> >> > fileNum = FreeFile
> >> > Open towfile For Output As fileNum
> >> > Open towfile For Output As fileNum
> >> > Print #fileNum, "[Group1]"
> >> > Print #fileNum, "Desc=" & filename
> >> > Print #fileNum, "MultiPage=Yes"
> >> > Print #fileNum, "DeleteWhen=Always"
> >> > Print #fileNum, "DefaultApp=email"
> >> > Print #fileNum, "ShowDesc=Yes"
> >> > Print #fileNum, "EmailImport=Yes"
> >> > Print #fileNum, "MAIL_FROM=" & strsender
> >> > Print #fileNum, "MAIL_TO=" & strrecipient '
> >> > Adding the indexing info here
> >> > If strCC > "" Then
> >> > Print #fileNum, "MAIL_CC=" & strCC
> >> > Else
> >> > Print #fileNum, "MAIL_CC=NULL "
> >> > End If
> >> > If strBCC > "" Then
> >> > Print #fileNum, "MAIL_BCC=" & strBCC
> >> > Else
> >> > Print #fileNum, "MAIL_BCC=NULL"
> >> > End If
> >> > Print #fileNum, "MAIL_DATE=" & intsent
> >> > If filename > "" Then
> >> > Print #fileNum, "MAIL_SUBJECT=" & filename
> >> > Else
> >> > Print #fileNum, "MAIL_SUBJECT=NULL"
> >> > End If
> >> > If lngCount = 0 Then
> >> > Print #fileNum, "NumberOfFiles=1"
> >> > Print #fileNum, "File1=" & filename
> >> > Print #fileNum, "Desc1=" & strsubject
> >> > Else
> >> > Print #fileNum, "NumberOfFiles=" & lngCount + 1
> >> > Print #fileNum, "File1=" & filename
> >> > Print #fileNum, "Desc1=" & strsubject
> >> > Dim z As Integer
> >> > For z = 1 To lngCount
> >> > Print #fileNum, "File" & (z + 1) & "=" & attachments(z)
> >> > 'File2=C:\TMP\c2.bmp
> >> > Print #fileNum, "Desc" & (z + 1) & "=" & attachdescs(z)


'This
> >> is
> >> > the message body
> >> > Next z
> >> > End If
> >> > Print #fileNum, "[General]"
> >> > Print #fileNum, "NumberofGroups=1"
> >> > Close fileNum
> >>>> > 'Call IDMImport(towfile)
> >> > 'fso.DeleteFile path, True
> >> > 'Set fso = Nothing
> >> > End Sub
> >> > Function StripIllegalChar(StrInput)
> >> > Dim RegX As Object
> >> > Set RegX = CreateObject("vbscript.regexp")
> >> > RegX.Pattern = "[\" & Chr(34) &
> >> > "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]"
> >> > RegX.IgnoreCase = True
> >> > RegX.Global = True
> >> > StripIllegalChar = RegX.Replace(StrInput, "")
> >> > ExitFunction:
> >> > Set RegX = Nothing
> >> > End Function
> >> > Sub CheckFolder()
> >> > Dim fso
> >> > Dim fol As String
> >> > fol = ("c:\temp\outlookimport")
> >> > Set fso = CreateObject("Scripting.FileSystemObject")
> >> > If Not fso.FolderExists(fol) Then
> >> > fso.CreateFolder (fol)
> >> > End If
> >> > End Sub
> >> .
> >>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
O VBA Outlook Message Attachment - Array Index Out of Bounds Outlook VBA and Custom Forms 0
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
S Paperclip icon shows without attachment in email under Sent folder Using Outlook 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
C Code to move mail with certain attachment name? Does Not work Outlook VBA and Custom Forms 3
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
Owl Export Outlook PDF Attachment as JPG? Outlook VBA and Custom Forms 4
Timmon Remove just one attachment before AutoForward Outlook VBA and Custom Forms 0
P File Picker for attachment Outlook VBA and Custom Forms 0
D Forwarding email based on the attachment file type and specific text found on the attachment file name Outlook VBA and Custom Forms 1
N File Picker for attachment Outlook VBA and Custom Forms 2
G print attachment straight away; working script edit not working Outlook VBA and Custom Forms 0
G Save attachment run a script rule Outlook VBA and Custom Forms 0
M Autoforward just attachment OR just body. Outlook VBA and Custom Forms 0
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
T vba extract data from msg file as attachment file of mail message Outlook VBA and Custom Forms 1
K Outlook Office 365 VBA download attachment Outlook VBA and Custom Forms 2
P Sending email from outlook IMAP to GMAIL where embedded images are added as attachment Using Outlook 1
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
D Move Email with Attachment to Folder Outlook VBA and Custom Forms 3
B Outlook 2010 Opening Mail Attachment Using Outlook 2
A Warning When Opening attachment Using Outlook 7
R Limiting length of saved attachment in VBA Outlook VBA and Custom Forms 2
F Script for zip file attachment Outlook VBA and Custom Forms 1
P Outlook 2013 Word Share doc as Email Attachment now brings up Eudora. Using Outlook 1
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
H Outlook 2003 find by "has attachment" Using Outlook 1
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
geofferyh How to change the Attachment File Name? Outlook VBA and Custom Forms 1
geofferyh Outlook 2010 How to Copy Outlook Attachment to a Specific Folder? Outlook VBA and Custom Forms 3
D Body text of email disappears when I scan an attachment from printer to email Using Outlook 1
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
D Autosave Attachment and Rename Outlook VBA and Custom Forms 1
N Macro for attachment saved and combine Outlook VBA and Custom Forms 1
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
Commodore Attachment icon when there is no attachment Using Outlook 3
V Saving attachment from outlook in My Documents Outlook VBA and Custom Forms 14
N automatic response with an attachment based on the subject line Outlook VBA and Custom Forms 1
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
M Search for attachment filename Using Outlook 0
E Open olNoteItem Attachment Outlook VBA and Custom Forms 6
Vijay Reply all by attachment name Using Outlook 10
Michael R Belleville Making an Attachment Name the Message Subject Using Outlook 2
N Paste content to Excel when .txt file (attachment) is opened Outlook VBA and Custom Forms 1
P Outlook Randomly Not attaching (attachment file) Using Outlook 0
S VBA to search a keyword in attachment and move to a folder Outlook VBA and Custom Forms 0

Similar threads

Back
Top