PDA

Vollständige Version anzeigen : Emailempfaenger


Bubaco
13.07.2006, 08:02
hi leutz,

habe einen code der am ende einen bericht an bestimmte empfaenger schicken sollte. klappt auch, wenn ich nur einen empfaenger auswaehle.
sobald aber 2 empfaenger angegeben sind, will er es in outlook nicht als empfaenger annehmen.

schaut euch das doch mal bitte an.

hier der code

If Worksheets("Output").Cells(2, 2).Value = "name 1" Then
a = Worksheets("Rohdaten").Cells(5, 11)
Else
If Worksheets("Output").Cells(2, 3).Value = "name2" Then
If Worksheets("Output").Cells(2, 4).Value = "name3" Then
If Worksheets("Output").Cells(2, 6).Value = "name4" Then
a = Worksheets("Rohdaten").Cells(5, 11)
Else
If Worksheets("Output").Cells(2, 3).Value = "name2" Then
If Worksheets("Output").Cells(2, 4).Value = "name3" Then
a = Worksheets("Rohdaten").Cells(2, 11) & ";" & Worksheets("Rohdaten").Cells(3, 11)
Else
If Worksheets("Output").Cells(2, 3).Value = "name2" Then
If Worksheets("Output").Cells(2, 6).Value = "name4" Then
a = Worksheets("Rohdaten").Cells(2, 11) & ";" & Worksheets("Rohdaten").Cells(4, 11)
Else
If Worksheets("Output").Cells(2, 6).Value = "name3" Then
If Worksheets("Output").Cells(2, 4).Value = "name4" Then
a = Worksheets("Rohdaten").Cells(3, 11) & ";" & Worksheets("Rohdaten").Cells(4, 11)
Else
If Worksheets("Output").Cells(2, 3).Value = "name2" Then
a = Worksheets("Rohdaten").Cells(2, 11)
Else
If Worksheets("Output").Cells(2, 4).Value = "name3" Then
a = Worksheets("Rohdaten").Cells(3, 11)
Else
If Worksheets("Output").Cells(2, 6).Value = "name4" Then
a = Worksheets("Rohdaten").Cells(4, 11)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


ActiveWorkbook.Worksheets("Output").Copy
ActiveWorkbook.******** Recipients:=a, _
Subject:="meine datei" ' Betreffs Zeile
ActiveWorkbook.Close savechanges:=False


... in dem sheet "Rohdaten" sind die entsprechenden emailadressen gepflegt, wo bei ubereinstimmung des namens die entsprechende emailadresse bekommst.
noch ein hinweiss, wenn man sich den parameter (a) ueber eine msgbox anzeigen laesst, dann sieht man, das die emailadressen richtig sind.

es gibt max 4 namen die alle in einem sheet stehen [ range ( B1:E1 ) ]. ich muss nun abfragen, welche namen da stehen und dann entsprechend eine email an die person oder die personen senden.



gruss
michael

Hajo_Zi
13.07.2006, 08:34
Hallo Michael,

vielleicht reicht der Tip.

Soll die Mail an mehrere Empfänger gesendet werden, muß die Recipients-Eigenschaft als Array gesetzt werden:
Array("...", "...",........)

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="30" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="30" alt="Homepage"></a>

Bubaco
13.07.2006, 15:23
hi hajo,
deiner meinung nach sollte ich die kombinationen der emailadressen als array formulieren. z.b. Array[(name1@web.de;name2@web.de)] und entsprechend meiner oberen if else schleife das richtige array ermitteln.
bin nicht der fitteste in sachen array. hast du nicht nen bsp aus deiner sammlung parat oder kannst du mir bei der erstellung des codes bitte helfen.

ich hab noch nie ein array geschrieben.

gruss
michael

Hajo_Zi
13.07.2006, 16:54
Hallo Michael,

den Teil hatte ich schon aus meinem Archiv gezogen und da Stand auch nicht mehr drin. Mit Mails aus Excel befasse ich mich nicht nur einige Tips hebe ich auf. Ich hääte meine Archiv so interpretiert.

Option Explicit

'Komfortabler geht es jedoch mit dem RoutingSlip-Objekt:
Sub Mailen()
Dim Wert()
Wert = Array("test1@web.de", "Test2@web.de", "Test3@web.de", "Test4@web.de")
Workbooks("Test.xls").HasRoutingSlip = True
With Workbooks("Test.xls").RoutingSlip
.Recipients = Wert
.Subject = "Hallo"
.Message = "Schöne Grüße"
End With
Workbooks("Test.xls").Route
End Sub
'Soll die Mail an mehrere Empfänger gesendet werden, muß die Recipients-Eigenschaft als Array gesetzt werden:
'Array("...", "...",........)


<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Beverly
13.07.2006, 17:10
Hi Michael,

vielleicht hilft dir auch dieser Link zum Beitrag (http://ms-office-forum.net/forum/showthread.php?t=178097&highlight=Empf%E4nger) weiter