[Résolu][Calc] Adaptation code MailServiceProvider_EnvoiAuto

[patrick104]

Bonjour,

Je souhaite envoyer des mails (via Thunderbird) au départ d'une feuille Calc.
Suite à mes recherches et à une ancienne interpellation, il me semble que la macro fournie par luky-luke dans ce post https://forum.openoffice.org/fr/forum/v ... 15&t=39844 pourrait faire l'affaire.
Malheureusement, mes connaissances médiocres en Basic ne me permettent pas de modifier d'adapter le code aux références de ma feuille..

Serait-il possible à l'un d'entre vous d'adapter la macro "Boîte d'envoi" agissant sur les feuilles 1 et 2 du fichier

Envoi mail.ods

pour qu'elle fasse le même travail sur la feuille "SMS", ou cela représente-t-il un travail trop conséquent par rapport à l'esprit de ce forum ?
Auquel cas, est-il permis de me renseigner un lien vers un service "commercial", ou est-ce là aussi incompatible avec la philosophie du forum ?

D'avance merci,
patrick.

[luky-luke]

Bonjour
L'adaptation est assez simple à réaliser, dans le module Ref_courriel il suffit de modifier le nom de la feuille ou des feuilles de référence et les références de colonnes que l'on souhaitent dans la boîte de dialogue dans la macro ComboAddress.

Code : Tout sélectionner

Sub ComboAddress
Dim MonDocument as Object, MaFeuille As Object, MaColonne As Object
Dim MesDestinataires As Object
Dim Maliste(), Cellliste As Object
Dim MaListeBox As Object
Dim i As Integer,j As Integer, Tab1, Tab2 

MonDocument = ThisComponent

Tab1 = Array("","SMS","SMS")
Tab2 = Array("","H2:H100", "F2:F100")
	For j = 1 To 2
		Mafeuille = MonDocument.Sheets.GetByName(Tab1(j))	
		MaColonne = Mafeuille.GetCellRangeByName(Tab2(j))
		MesDestinataires = MaColonne.RangeAddress	
			redim MaListe(MesDestinataires.startRow to MesDestinataires.endRow)
			for i = MesDestinataires.startRow to MesDestinataires.endRow
				CellListe = Mafeuille.getCellByPosition(MesDestinataires.startColumn, i)
				MaListe(i) = CellListe.string
			next i
		MaListeBox = oDlg.GetControl("ListBox"&j)
		MaListeBox.addItems(MaListe(),0)
	Next j
End sub

Il faut également changer la ligne

MaListe(i) = CellListe.Formula

par

MaListe(i) = CellListe.String

sous peine de voir les formules alors que l'on souhaite le résultat de la formule.

Cordialement
Luke

[patrick104]

Bonjour,

Merci beaucoup Luke.
Grâce à tes indications, je suis parvenu à modifier la macro pour l'adapter à mon utilisation.
Cela m'a aussi permis de commencer à mieux comprendre la syntaxe de la programmation,
de découvrir de nouvelles possibilités,
et d'apporter quelques autres modifications à la fenêtre de sélection des données.

Je passe en résolu.

Merci pour ton aide.

patrick