VBA to download email attachments from Outlook with multi Criteria. Real-life Automation Project | เรียนรู้การเขียนโปรแกรมออนไลน์ ที่เว็บไซต์

Hi, this is an incredible tutorial. Plz also let us know how it can be organized in local drive folders based on sender email address

how do I rename the file, while downloading the specific folder?

Whats the MAPI folder whats that

Do you have a tutorial for gmail attachment?

Great tutorial, the most important topic which is explained very well step by step

Can you send me the codes used in this tutorial?

SuppppperLike!!!!

Hello, I want to send you the code. Can you edit this code? for example I want to print only the first page of the pdf file.

this code:

Sub AttachmentPrint(Item As Outlook.MailItem)

On Error GoTo OError

' This script finds the system's Temp folders,

' saves any attachments, and runs the Print

' command for that file.

Dim oFS As FileSystemObject

Dim sTempFolder As String

Set oFS = New FileSystemObject

sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)

sTmpFld = sTempFolder & "OETMP" & Format(Now, "yyyymmddhhmmss")

MkDir (sTmpFld)

' in the next few lines, you'll see an entry that

' says FileType = . This line gets the last 4

' characters of the file name, which we'll use later.

Dim oAtt As Attachment

For Each oAtt In Item.Attachments

FileName = oAtt.FileName

FileType = LCase$(Right$(FileName, 4))

FullFile = sTmpFld & "" & FileName

oAtt.SaveAsFile (FullFile)

' We're using the FileType text. Note that it's the

' last 4 characters of the file name, which is why

' the next chunk has .xls and xlsx (without the period)

' – the period counts as the fourth character.

Select Case FileType

Case ".doc", "docx", ".xls", "xlsx", ".ppt", "pptx", ".pdf", ".tif"

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.NameSpace(0)

Set objFolderItem = objFolder.ParseName(FullFile)

objFolderItem.InvokeVerbEx ("print")

End Select

Next oAtt

If Not oFS Is Nothing Then Set oFS = Nothing

If Not objFolder Is Nothing Then Set objFolder = Nothing

If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing

If Not objShell Is Nothing Then Set objShell = Nothing

OError:

If Err <> 0 Then

MsgBox Err.Number & " – " & Err.Description

Err.Clear

End If

Exit Sub

End Sub

It’s very good, I need more information like , I need to save attachment from the email in particular excel spreadsheet then email and attachment needs to print. Do you have any idea

Do you have any video on downloading all the attachments from multiple outlook emails in a folder without using excel?

Great project, I built an richtextbox in excel vba to send email, do you know if is possible to create an email app without use Outlook?

Thanks a lot for this awesome tutorial. Can you share the code?

Team , I am getting object error in admin mailbox line

Thanks lot it's it is very nice how can we add multiple sender name to download the attachment

Hello Pamai,
It is a top-notch tutorial. Thank you so much. No waste of time. Every step is carefully programmed to make the listener understand and move from the well-learned previous step. You are great! May God bless you.

Hey,is it possible to send emails if there is conditions!
Exp: if range ("A4")= "true" then
Range ("b4:f6"). select
Selection.copy
So the .body="good morning"
For the above code it's working fine if I change the condition to false it's showing the same good morning I want change that to good evening

if range ("A4")= "false" then
Range ("b4:f6"). select
Selection.copy
.body= "good evening"

Thank you. I found it very informative.

Thanks a lot. This was something I was looking for. Very informative video thanks again

how long is viagra effective how long does it take for viagra to kick in how much does generic viagra cost

ivermectin overdose in cats dr syed haider ivermectin ivermectin dosage for potbelly pigs

lowest price cialis brand cialis on line black tab cialis

buy doxycycline online no prescription doxycycline 100 cost where can i buy doxycycline in singapore

how to cure ed naturally erectile dysfunction medicines buy prescription drugs

3626 doxycycline doxycycline 100mg cap tab can i purchase doxycycline over the counter

ed pharmacy ed meds online pharmacy ed medicines

ed treatment options treatment for erectile dysfunction online ed medications