[outlook2010] contact gegevens in mail gebruiken

[Jovink538]

Beste,
Outlook is aan ons telefoonsysteem gekoppeld als er gebeld wordt wordt de contact persoon geopend in Outlook. Nu wil ik graag een terugbel verzoek maken voor collega's als die niet bereikbaar zijn.
Dus iemand belt ik start een macro die de contact gegevens (Naam, bedrijfsnaam, en telefoon nummer) in een nieuw mailtje zet.
Dus ik hoef alleen het email adres van mijn collega in te geven en te versturen,

Maar ik krijg de gegevens van de contact niet in de mail.
Wie kan mij daar mee helpen?

Groet,
Jeroen

[BertS]

Wat heb je al wel?

[Jovink538]

BertS schreef op woensdag 12 september 2018 @ 17:49:
Wat heb je al wel?

kom ik morgen even op terug. kan nu niet inloggen op mijn werk.

[Room42]

Vul ook even die andere twee vragen in van het formulier dat je weggehaald hebt. Ze stonden er niet voor niks Er mist nogal wat in je openingspost om überhaupt antwoord te kunnen geven.

Mijn vraag
...

Relevante software en hardware die ik gebruik
...

Wat ik al gevonden of geprobeerd heb
...

Dus: wat voor software gebruik je? Waarmee genereer je dat mailtje? Wie heeft die macro geschreven en kun je die zelf aanpassen? Kun je daarin het contactpersonen-object uitlezen? Waarom heb je al die spaties tussen 'contact' en 'personen' en zo staan?

[Jovink538]

Ik had inderdaad de code die ik al had bij moeten voegen.
Ik ben vandaag even verder gegaan en nu werkt het bijna.

Public Sub GetAllContactDetails()
Dim Session As Outlook.NameSpace
Dim currentExplorer As Explorer

Dim obj As Object
Dim DataObj As MSForms.DataObject
Dim strContactDetails As String
Set DataObj = New MSForms.DataObject

Set currentExplorer = Application.ActiveExplorer
Set obj = currentExplorer.Selection.Item(1)

If obj.Class = olContact Then

With obj

If .FullName <> "" Then strContactDetails = .FullName & vbCrLf
If .JobTitle <> "" Then strContactDetails = strContactDetails & .JobTitle & vbCrLf
If .Department <> "" Then strContactDetails = strContactDetails & .Department & vbCrLf
If .CompanyName <> "" Then strContactDetails = strContactDetails & .CompanyName & vbCrLf
If .MailingAddress <> "" Then strContactDetails = strContactDetails & .MailingAddress & vbCrLf
If .BusinessAddressCountry <> "" Then strContactDetails = strContactDetails & .BusinessAddressCountry & vbCrLf
If .BusinessTelephoneNumber <> "" Then strContactDetails = strContactDetails & "Business: " & .BusinessTelephoneNumber & vbCrLf
If .Business2TelephoneNumber <> "" Then strContactDetails = strContactDetails & "Business 2: " & .Business2TelephoneNumber & vbCrLf
If .CompanyMainTelephoneNumber <> "" Then strContactDetails = strContactDetails & "Company: " & .CompanyMainTelephoneNumber & vbCrLf
If .MobileTelephoneNumber <> "" Then strContactDetails = strContactDetails & "Mobile: " & .MobileTelephoneNumber & vbCrLf
If .Email1Address <> "" Then strContactDetails = strContactDetails & .Email1Address & vbCrLf

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg
.Subject = "SVP terugbellen"
.Importance = olImportanceHigh
.Body = "Beste collega, " _
& vbNewLine & vbNewLine & _
"Graag even terugbellen. " & _
vbNewLine & vbNewLine & strContactDetails & _
vbNewLine & _
"Met vriendelijke groet," & _
vbNewLine & "Jeroen"
.Display
End With

Set objMsg = Nothing


End With

Else
MsgBox "You need to select a Contact."
End If

Set currentExplorer = Nothing
Set obj = Nothing
End Sub

Dit werkt bij een bestaand contact maar bij een nieuw contact werkt het niet. Ik heb geprobeerd om hem op te slaan en daarna het script uit te voeren maar dat gaat niet. Hij zal dus ge-refresht moeten worden denk ik. Maar dat krijg ik niet voor elkaar.

Oja Ik gebruik office 2010.

[BertS]

Waarschijnlijk moet je aan de slag met de Inspector.CurrentItem, die casten naar een ContactItem, waar je vervolgens een Save op kunt doen (of de niet-opgeslagen waarden uitlezen).

[Jovink538]

Bedankt BerS ik hoop morgen tijd te hebben om er naar te kijken. Momenteel beetje druk,