Kan Excel bruges til automatisk telefon opkald ?

HVORFOR skriver du med caps lock ? Det er ret irriterende ..

Ja, hvis du har dialer.exe er det muligt via en makro at sende nummeret fra den celle du står i til dialeren, således at den kalder op til nummeret.

Sub CellToDialer()
'  Sender cellens indhold til Dialer.exe
'  og ringer op
    Dim CellContents
    Dim AppName As String
    Dim AppFile As String
    Dim TaskId

'  hent telefonnummeret
    CellContents = ActiveCell.Value
    If CellContents = "" Then
        MsgBox "Vælg en celle, der indeholder et telefonnummer."
        Exit Sub
    End If

'  Activer (eller start) Dialer
    AppName = "Dialer"
    AppFile = "Dialer.exe"
    On Error Resume Next
    AppActivate (AppName)
    If Err <> 0 Then
        Err = 0
        TaskId = Shell(AppFile, 1)
        If Err <> 0 Then MsgBox "Kan ikke starte " & AppFile
    End If
   
'  overfør cellens indhold til Dialer.exe
    Application.SendKeys "%n" & CellContents, True

'  "Tryk" tasterne
    Application.SendKeys "%d"
'    Application.SendKeys "{TAB}~", True
End Sub

Jeg siger tak for tilsendte, som jeg desv. ikke forstår, da jeg jo faktisk er computer analfabet. Såfremt der findes en Excel  specialist i  8270  Højbjerg eller Århus, der vil give et fornuftigt tilbud på hvad det vil koste at lave,  betaler jeg gerne.

Send lige dit ark, så skal jeg prøve at fikse det.
tommybak@netscape.net