title image


Smiley neue Kontakte anlegen
Hallo,

ich habe kein Outlook installiert und bin mir nicht sicher ob das hier weiterhilft.

Das Makro legt für jede Zeile einen neuen Kontakt in Outlook an, also Vorsicht:

--- erst testen ---







Sub AdressenNachOutlook()

'legt neue Kontakte in Outlook an



    Dim appOutLook As Outlook.Application  

    Dim conoutlook As Outlook.ContactItem  

    Set appOutLook = CreateObject("Outlook.Application")  

   

    Range("A2").Select  

   

    Do Until ActiveCell.Value = ""  

    Set conoutlook = appOutLook.CreateItem(olContactItem)

    With conoutlook

        .FirstName = ActiveCell.Value

        .LastName = ActiveCell.Offset(0, 1).Value

        .BusinessAddress = ActiveCell.Offset(0, 2).Value & ", " & ActiveCell.Offset(0, 3).Value

        .BusinessAddressCountry = ActiveCell.Offset(0, 4).Value

        .BusinessAddressPostalCode = ActiveCell.Offset(0, 5).Value

        .BusinessAddressState = ActiveCell.Offset(0, 6).Value

        .Email1Address = ActiveCell.Offset(0, 7).Value

        .HomeTelephoneNumber = ActiveCell.Offset(0, 8).Value

        .BusinessTelephoneNumber = ActiveCell.Offset(0, 9).Value

        .BusinessFaxNumber = ActiveCell.Offset(0, 10).Value

        .Birthday = ActiveCell.Offset(0, 11).Value

        .Save

    End With  

    ActiveCell.Offset(1, 0).Select

    Loop

   

    Set conoutlook = Nothing  

    Set appOutLook = Nothing  

   

End Sub  





Was ist in Outlook ein Verteiler?

Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: