title image


Smiley Re: Adressdaten von Excel nach Outlook importieren?
Hallo,

hab gerade noch eine alte Datei von Bernd Held gefunden.

Wenn Du willst, kann ich dir die auch schicken.















Sub AdressenNachOutlook()

    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  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: