Skip to main content

Conas gach ceangaltán a shábháil ó iliomad ríomhphoist chuig fillteán in Outlook?

Is furasta gach ceangaltán a shábháil ó r-phost leis an ngné ionsuite Sábháil Gach Ceangaltán in Outlook. Mar sin féin, más mian leat gach ceangaltán a shábháil ó iliomad ríomhphoist ag an am céanna, níl aon ghné dhíreach ann a chabhróidh leat. Ní mór duit an ghné Sábháil Gach Ceangaltán a chur i bhfeidhm arís agus arís eile i ngach ríomhphost go dtí go sábhálfar gach ceangaltán ó na ríomhphoist sin. Tógann sé sin am. San Airteagal seo, tugtar isteach dhá mhodh duit chun gach ceangaltán a shábháil ó iliomad ríomhphoist chuig fillteán ar leith go héasca in Outlook.

Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le cód VBA
Roinnt cad a tharlaíonn chun gach ceangaltán a shábháil ó iliomad ríomhphoist go fillteán le huirlis iontach


Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le cód VBA

Taispeánann an chuid seo cód VBA i dtreoir céim ar chéim chun cabhrú leat gach ceangaltán a shábháil go tapa ó iliomad ríomhphoist chuig fillteán ar leith ag an am céanna. Déan mar a leanas le do thoil.

1. Ar dtús, ní mór duit fillteán a chruthú chun na ceangaltáin i do ríomhaire a shábháil.

Faigh isteach sa Doiciméid fillteán agus cruthaigh fillteán darb ainm “Ceangaltáin”. Féach an pictiúr:

2. Roghnaigh na ríomhphoist a shábhálfaidh tú na ceangaltáin, agus ansin brúigh Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. cliceáil Ionsáigh > Modúil a oscailt Modúil fuinneog, agus ansin cóipeáil ceann de na cód VBA seo a leanas isteach san fhuinneog.

Cód VBA 1: Ceangail bulc-iatáin ó iliomad ríomhphoist (sábháil ceangaltáin den ainm céanna go díreach)

Leideanna: Sábhálfaidh an cód seo ceangaltáin den ainm céanna trí dhigit 1, 2, 3 a chur leis ... i ndiaidh ainmneacha comhaid.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function
Cód VBA 2: Ceangail bulc-iatáin ó iliomad ríomhphoist (seiceáil le haghaidh dúbailtí)
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

nótaí:

1) Más mian leat gach ceangaltán den ainm céanna a shábháil i bhfillteán, cuir an méid thuas i bhfeidhm Cód VBA 1. Sula rith tú an cód seo, cliceáil le do thoil uirlisí > tagairtí, agus ansin seiceáil an Microsoft Scripting Runtime bosca sa Tagairtí - Tionscadal bosca dialóige;

ceangaltáin ach amháin07 a shábháil

2) Más mian leat ainmneacha dúblacha iatáin a sheiceáil, cuir an cód VBA 2. i bhfeidhm le do thoil. Tar éis duit an cód a rith, popfaidh dialóg suas le cur i gcuimhne duit ar cheart na ceangaltáin dhúblacha a athsholáthar, roghnaigh Is ea or Uimh bunaithe ar do chuid riachtanas.

5. Brúigh an F5 eochair chun an cód a rith.

Ansin déantar gach ceangaltán i ríomhphoist roghnaithe a shábháil chuig an bhfillteán a chruthaigh tú i gcéim 1. 

Nótaí: D’fhéadfadh go mbeadh a Microsoft Outlook bosca pras popping suas, cliceáil le do thoil an Ceadaigh cnaipe le dul ar aghaidh.


Sábháil gach ceangaltán ó iliomad ríomhphoist chuig fillteán le huirlis iontach

Más newbie tú i VBA, moltar go mór anseo an Sábháil Gach ceangaltán fóntais de Kutools le haghaidh Outook duitse. Leis an bhfóntas seo, is féidir leat gach ceangaltán a shábháil go tapa ó iliomad ríomhphoist ag an am céanna le roinnt cad a tharlaíonn ach in Outlook.
Sula gcuirfidh tú an ghné i bhfeidhm, le do thoil Kutools le haghaidh Outlook a íoslódáil agus a shuiteáil ar dtús.

1. Roghnaigh na ríomhphoist ina bhfuil na ceangaltáin a theastaíonn uait a shábháil.

Leid: Is féidir leat ríomhphoist iomadúla nach bhfuil in aice láimhe a roghnú tríd an Ctrl eochair agus roghnaigh ceann ar cheann iad;
Nó roghnaigh ríomhphoist iolracha in aice láimhe tríd an Shift eochair agus roghnaigh an chéad ríomhphost agus an ceann deireanach.

2. cliceáil Kutools >Uirlisí CeangailSábháil Gach. Féach an pictiúr:

3. Sa Socruithe Sábháil dialóg, cliceáil an cnaipe chun fillteán a roghnú chun na ceangaltáin a shábháil, agus ansin cliceáil ar an OK cnaipe.

3. cliceáil OK faoi ​​dhó sa chéad bhosca eile suas go bosca dialóige, Ansin sábhálfar gach ceangaltán i ríomhphoist roghnaithe i bhfillteán sonraithe ag an am céanna.

Nótaí:

  • 1. Más mian leat ceangaltáin a shábháil i bhfillteáin éagsúla bunaithe ar ríomhphoist, seiceáil an Cruthaigh fofhillteáin sa stíl seo a leanas bosca, agus roghnaigh stíl fillteáin ón roghchlár anuas.
  • 2. Seachas gach ceangaltán a shábháil, is féidir leat ceangaltáin a shábháil de réir coinníollacha sonracha. Mar shampla, níl uait ach na ceangaltáin comhad pdf a shábháil ina bhfuil an focal "Sonrasc" in ainm an chomhaid, cliceáil le do thoil Roghanna Casta cnaipe chun na coinníollacha a leathnú, agus ansin cumraigh mar an screebshot thíos a thaispeántar.
  • 3. Más mian leat ceangaltáin a shábháil go huathoibríoch nuair a thagann r-phost, beidh an Ceangaltáin Auto Sábháil gné is féidir cabhrú.
  • 4. Chun na ceangaltáin a dhícheangal go díreach ó ríomhphoist roghnaithe, beidh an Detach Gach ceangaltán gné de Kutools le haghaidh Outlook is féidir leat a dhéanamh ina bhfabhar.

  Más mian leat triail saor in aisce (60 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Earraí gaolmhara

Cuir ceangaltáin isteach i gcorp na teachtaireachta ríomhphoist in Outlook
De ghnáth taispeántar ceangaltáin sa réimse Ceangailte i r-phost cumadóireachta. Soláthraíonn an teagaisc seo modhanna chun cabhrú leat ceangaltáin a chur isteach sa chorp ríomhphoist in Outlook go héasca.

Ceangail ó Outlook go fillteán áirithe a íoslódáil / a shábháil go huathoibríoch
Go ginearálta, is féidir leat gach ceangaltán de r-phost amháin a shábháil trí chliceáil ar Aguisíní> Sábháil Gach Ceangaltán in Outlook. Ach, más gá duit gach ceangaltán a shábháil ó gach ríomhphost a fuarthas agus ríomhphoist a fháil, an bhfuil aon idéalach? Tabharfaidh an t-alt seo dhá réiteach isteach chun ceangaltáin ó Outlook a íoslódáil go huathoibríoch chuig fillteán áirithe.

Priontáil gach ceangaltán i ríomhphost amháin / iolrach in Outlook
Mar is eol duit, ní phriontálfaidh sé ach an t-ábhar ríomhphoist mar cheanntásc, comhlacht nuair a chliceálann tú an Comhad> Priontáil i Microsoft Outlook, ach ní phriontálfaidh sé na ceangaltáin. Taispeánfaimid duit anseo conas gach ceangaltán a phriontáil i r-phost roghnaithe ar a suaimhneas i Microsoft Outlook.

Cuardaigh focail laistigh de cheangaltán (ábhar) in Outlook
Nuair a dhéanaimid eochairfhocal a chlóscríobh sa bhosca Instant Search in Outlook, déanfaidh sé cuardach ar an eochairfhocal in ábhair, comhlachtaí, ceangaltáin ríomhphoist, srl. Ach anois ní gá dom ach an eochairfhocal a chuardach in ábhar iatáin in Outlook amháin, aon smaoineamh? Taispeánann an t-alt seo duit na céimeanna mionsonraithe chun focail laistigh d’ábhar iatáin in Outlook a chuardach go héasca.

Coinnigh ceangaltáin agus tú ag freagairt in Outlook
Nuair a sheolaimid teachtaireacht ríomhphoist ar aghaidh i Microsoft Outlook, fanann ceangaltáin bhunaidh sa teachtaireacht ríomhphoist seo sa teachtaireacht a cuireadh ar aghaidh. Mar sin féin, nuair a thabharfaimid freagra ar theachtaireacht ríomhphoist, ní bheidh na ceangaltáin bhunaidh ceangailte sa teachtaireacht freagartha nua. Anseo táimid chun cúpla cleas a thabhairt isteach maidir le ceangaltáin bhunaidh a choinneáil agus muid ag freagairt i Microsoft Outlook.


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (81)
Rated 3.5 out of 5 · 3 ratings
This comment was minimized by the moderator on the site
Thank you for sharing the code. Unfortunately, I tried both with failure. This is what I got - The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros. Thank you.
This comment was minimized by the moderator on the site
Hi,
Please follow the instructions in the screenshot below to check if macros are enabled in the macro settings in your Outlook. After enabling both options, re-run the VBA code.

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/macro-enabled.png
This comment was minimized by the moderator on the site
Thank you so much.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Thank you for sharing VBA code. This work like magic and is going to save it lots of time!
This comment was minimized by the moderator on the site
Hello friends!

Thanks for sharing this VBA code.

Is there any way to change the location of the save folder?

I share the pc with some colleagues and in this case I need the files to be saved in a password protected folder which is not located in the documents folder.

How can I make this change?

Thank you in advance
This comment was minimized by the moderator on the site
Hi Fabiana,
Change the line 14
xFolderPath = xFolderPath & "\Attachments\"

to
xFolderPath = "C:\Users\Win10x64Test\Desktop\save attachments\1\"

Here "C:\Users\Win10x64Test\Desktop\save attachments\1\" is the folder path in my case.
Don't forget to end the folder path with a slash "\"
This comment was minimized by the moderator on the site
Hello friends!

Thank you for sharing that VBA code.

Is there any way to change the location of the save folder?

I share the pc with some colleagues and in this case I need the files to be saved in a password protected folder which is not located in the documents folder.

How can I make this change?

Thank you in advance
This comment was minimized by the moderator on the site
If you are trying to run the Code that renames duplicate files and keep getting a "User Type Not Defined" error message here is the code fixed. Instead of the "Dim xFso As FileSystemObject" on line 47 it should be "Dim xFso As Variant"
Also added a Message Box to appear at the end of data transfer.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
MsgBoX prompt:="File Transfer Complete", Title:="Sweatyjalapenos tha Goat"
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As Variant
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True

End If
End If
End Function
This comment was minimized by the moderator on the site
Very nice script as of 2022-10-19 works great, for me doesn't seem to change original message by adding text. The only thing I changed is I added message received date time to each file name with the following format so it would nicely sort by date time in Windows folder: "yyyy-mm-dd HH-mm-ss ".

Code:

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String, xDateFormat As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xDateFormat = Format(xMailItem.ReceivedTime, "yyyy-mm-dd HH-mm-ss ")
xFilePath = xFolderPath & xDateFormat & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
This comment was minimized by the moderator on the site
Hi Oigo,
This is a very useful VBA script. Thank you for sharing it.
This comment was minimized by the moderator on the site
Hi crystal,

sorry for not being clear.

I was trying to use the code above mentioned. However, apparently I was doing something wrong. I was thinking that I might need to amend some parts in the code shown. For instance the path where to save the attachments and maybe some other parts. Therefore I was asking if you could share the code highlighting the parts which needs tailoring and how to tailor them.

Many thanks,
BR
This comment was minimized by the moderator on the site
Hi Rokkie,
Did you get any error prompt when the code runs? Or which line in your code is highlighted? I need more details so I can see where you can modify the code.
This comment was minimized by the moderator on the site
Hey crystal,

completeley new to this VBA. Can you share a code to use which shows where I have to amend with an example? As a Rookie it is a bit difficult to figure it out.

I am working via a Ctrix connection. Could this be a blocker for the macro?

Much appreaciate the help.
This comment was minimized by the moderator on the site
Hi Rookie,
Sorry I don't understand what you mean: "Can you share a code to use which shows where I have to amend with an example?"
And the code operates on selected emails in Outlook, Ctrix Connection does not block the macro.
This comment was minimized by the moderator on the site
Hi, I am running this Code 1 to extract .txt files from separate sub-folders of an inbox. It works great out of one sub-folder but not at all out of another sub-folder. I have tried forwarding the relevant email and attachment into other inboxes but no luck. The files are automatically generated and sent to the different sub-folders and only vary by a single letter in their title

Any help much is appreciated
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations