Need to write a script that runs thru the all the Outlook365 emails and extracts all incorporated contacts into Excel
Posts by jonny
-
-
sorry, my bad, please see now:
Family Table Number Number of persons A 1 3 B 4 5 C 1 1 D 1 6 E 3 4 F 4 2 G 2 5 H 2 1 -
Thanks,
This helps if comes one person only, however I'm managing a row of the entire family.
Instead of counting I wish to sum "number of persons" data that located in "C" column. What's the right syntax of that?
Something with "offset", I assume? -
Hi Guys,
I've upcoming event and the list of guests:
What I'm trying is to build a function that summarizing number of person per each table.. Please your kind help with that.
[tr]
[TABLE="border: 1, cellpadding: 1, width: 500"]
[td]Guest Name
[/td]
[td]Table Number
[/td]
[/tr]
[tr]
[td]A
[/td]
[td]1
[/td]
[/tr]
[tr]
[td]B
[/td]
[td]4
[/td]
[/tr]
[tr]
[td]C
[/td]
[td]1
[/td]
[/tr]
[tr]
[td]D
[/td]
[td]1
[/td]
[/tr]
[tr]
[td]E
[/td]
[td]3
[/td]
[/tr]
[tr]
[td]F
[/td]
[td]4
[/td]
[/tr]
[tr]
[td]G
[/td]
[td]2
[/td]
[/tr]
[tr]
[td]H
[/td]
[td]2
[/td]
[/tr]
[tr]
[/TABLE]
[TABLE="border: 1, cellpadding: 1, width: 500"]
[td]Table Number
[/td]
[td]1
[/td]
[td]2
[/td]
[td]3
[/td]
[td]4
[/td]
[/tr]
[tr]
[td]Number of persons
[/td]
[td]?
[/td]
[td]?
[/td]
[td]?
[/td]
[td]?
[/td]
[/tr]
[/TABLE] -
I have a code that moves one chart from Excel to Powerpoint. May someone help to modify it so that it will move all charts within the active worksheet to Powerpoint?
Code
Display MorePrivate Sub MovingChartsFromExcelToPPT() Dim PowerPointApp As Object Dim myPresentation As Object Dim mySlide As Object Dim myShape As Object If ActiveChart Is Nothing Then MsgBox "Hey, please select a chart first." Exit Sub End If If PowerPointApp Is Nothing Then _ Set PowerPointApp = CreateObject(Class:="PowerPoint.Application") On Error GoTo 0 Application.ScreenUpdating = False Set myPresentation = PowerPointApp.Presentations.Add Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly ActiveChart.ChartArea.Copy mySlide.Shapes.Paste Set myShape = mySlide.Shapes(mySlide.Shapes.count) myShape.Left = 200 myShape.Top = 200 PowerPointApp.Visible = True PowerPointApp.Activate Application.CutCopyMode = False End Sub
Thanks -
The below code is creating an email with the list of tasks, the only issue i that each row is starting with task category.
Please your kind help to modify the code , so I can see the task category and below it the tasks.Code
Display MorePublic Sub CreatingReportFromTasks() Dim objTask As Outlook.TaskItem Dim objTaskFolder As Outlook.MAPIFolder Dim objTaskItems As Outlook.Items Dim objNS As Outlook.NameSpace Set objNS = Application.GetNamespace("MAPI") Set objTaskFolder = objNS.GetDefaultFolder(olFolderTasks) Set objTaskItems = objTaskFolder.Items Dim strBody As String MyCategory = "" strBody = "" strCategory = "" For Each objTask In objTaskItems If objTask.Status <> olTaskComplete And (objTask.Categories = "1" Or objTask.Categories = "2" Or objTask.Categories = "3" Or objTask.Categories = "4") Then If objTask.Categories <> MyCategory Then MyCategory = objTask.Categories End If strBody = strBody & " " & MyCategory & ":" & objTask.Subject & vbNewLine ' & strbody End If Next Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) With objMsg .To = "" .Body = strBody '.Display End With Debug.Print strBody Set objTask = Nothing Set objTaskItems = Nothing Set objTaskFolder = Nothing Set objNS = Nothing Set objMsg = Nothing End Sub
-
Re: Creating Contacts From Incoming Emails (USD $20.00)
The only issue could be is to extract sender title, but I don't see a problem to extract the below :
1. Company name - could be extracted from the sender email.
2. Sender name first and last - could be extracted from the sender email.
3. Sender email - could be extracted from the sender email.
4. Phone number - could be extracted from the email body.
5. Company website - could be extracted from the email body. -
Re: Creating Contacts From Incoming Emails (USD $20.00)
Unfortunately there no common pattern, the purpose is to have some code based on reg.exp. Something similar to algorithm of business card scanning applications.
-
Re: Creating Contacts From Incoming Emails (USD $2.00)
Guys - please offer your price for this project.
I want to have a code that scans incoming e-mails (and retroactively all inbox) and creates a contact from the auto signature.
See the screenshot as an example:[ATTACH=CONFIG]69200[/ATTACH]
-
-
Re: Selecting multiple rows
The code is very simple, a user form with two option buttons. After both buttons are being pressed, two rows should be copied into a new workbook.
Code
Display MoreGlobal RowCollection As String Private Sub optPlastic_Click() RowCollection = RowCollection & "A26" & "," End Sub Private Sub optSemi_Click() RowCollection = RowCollection & "A26" & "," & "A33" & "," End Sub RowCollection = Left(RowCollection, Len(RowCollection) - 1) ' Union(Range("A1:A16"), Range(RowCollection)).EntireRow.Copy - is that the correct syntax to append the rows A1:A16 to the copied rows? Range(RowCollection).EntireRow.Copy Workbooks.Add ActiveSheet.Paste
-
Re: Selecting multiple rows
When I trying to copy a range , I'm getting an error : "That Command Cannot Be Used on Multiple Selections". How could be copied the unique rows only?
-
Re: Selecting multiple rows
Skywriter, you are BIG!!
Much appreciate your help, this works smoothly!Thank you!
-
Re: Selecting multiple rows
1. I have a userform with the groups of OptionButtons
2. Pressing each OptionButton appends predefined row numbers into global variable, called : RowCollection
3. Once I press a button "Copy" the row numbers stored in RowCollection should be copies to the new workbook.Code
Display MoreRowCollection = "" Private Sub optTest_Click() RowCollection = RowCollection & "|" & "2" & "|" & "3" & "|" & "4" & "|" & "5" & "|" & "6" & "|" & "14" & "|" & "27" & "|" & "29" & "|" & "30" & "|" & "31" & "|" & "34" & "|" & "35" & "|" & "36" & "|" & "37" End Sub Private Sub optTH_Click() RowCollection = RowCollection & "|" & "25" & "|" & "29" & "|" & "34" End Sub
As a delimiter I've set "|" , but it certainly could be changed (or entire concept could be changed).
-
Re: Selecting multiple rows
I'm actually have to run thru the RowCollection array, to append the rows into the range and then copy them into new workbook.
Here is a kind of psevdocode:CodeFor Each MyStr In Split(RowCollection, "|") If MyStr <> "" Then RowsToCopy = rows(MyStr).EntireRow ==> New Workbook End If Next MyStr
Will much appreciate your help.. -
-
Re: Creating Contacts From Incoming Emails (USD $2.00)
I want to have a code that doing the mentioned task. All that for 20$ (2$ is 10% of the budget).
-
Required to scanning thousands of email in Outlook inbox and the subfolders. From each email to retrieve the sender details and add into the contact list (only out of corporate senders).
For those senders who have auto signature , need to extract the data as phone# , company , e.t.s into relevant contact fields. The purpose is to have a contact list with full contacts data.
Once all this done , the script should run in background for all new incoming emails.
I want to get a VB code as well.Thanks
-
Re: Searching partial string
The string I want to search for may appears in different positions
-
Re: Searching partial string
Sorry for confusing, the logic as following:
Need to search full string from "Code" column within the column "PN". Once it's found, to get the associated "Model".Thanks