wir haben zum versand von dateien ein excel-makro auf basis von excel 97 genutzt. nach umstellung des rechners auf windows xp und office xp funktioniert dieses makro bzw. der automatische mailversand nicht mehr.
hat jemand eine idee, wo ich ggf. einstellungen ändern muß oder wie ich das makro anpassen muß, damit es wieder funktioniert???
danke
volker
Sub testmail()
'
' testmail Makro
' Makro am 26.03.02 von Volker Eggert aufgezeichnet
'
'
Set objoutlook = GetObject(, "outlook.application")
If Err.Number <> 0 Then
outlookliefnicht = True
Set objoutlook = CreateObject("outlook.application")
End If
Set objoutlookmsg = objoutlook.createitem(olmailitem)
With objoutlookmsg
Set objoutlookrecip = .Recipients.Add(strrecipient) 'Empfänger
objoutlookrecip.Type = olto
.Subject = strsubject 'Betreff
.body = strbody & vbLf & vbLf 'Nachricht
If stranlage <> "" Then 'Anlage
Set objoutlookattach = .attachments.Add(stranlage)
End If
objoutlookrecip.resolve
.send
End With
End Sub